написать двумерный массив. найдите среднее арифметическое частей массива заданных

Написать двумерный массив. найдите среднее арифметическое частей массива данных случайным образом [0..20]

Задать свой вопрос
Milana Nazdrjuhina
ну помогите
1 ответ
Program enot;
Var a:array[1..5,1..5] of integer;
 i,j,s: integer;
 c:real;
 begin for i:= 1 to 5 do 
 for j:= 1 to 5 do 
 begin 
 a[i,j]:= random (20);
  s:=s+a[i,j];
  c:=s/25;
  end;
  write(c); 
 end.
Максимка Трещинский
а эту сможешь
Артем Стифиенко
отыскать min элемент матрицы данной с клавиатуры
Арсений Губанов
Program enot;Var a: array [1..3,1..3] of integer;min,i,j:integer;beginfor i:= 1 to 3 do for j:= 1 to 3 do read(a[i,j]); min:=a[1,1]; for i:= 1 to 3 do for j:= 1 to 3 do if a[i,j]
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт