Регистрация
alenalevkika79
03.11.2020 19:31
Информатика
Есть ответ 👍

решить тест
10 класс
ABC Pascal

240
338
Посмотреть ответы 1

Ответы на вопрос:

twinnyXD
twinnyXD
4,8(38 оценок)
1. дан двумерный массив размером 3x5. вычислить сумму элементов массива var a: array[1..3, 1..5] of integer;   i,i2,sum: integer;   begin  for i: =1 to 3 do  begin  for i2: =1 to 5 do  begin  writeln('введите элемент '); readln(a[i,i2]);   sum+=a[i,i2];   end;   end;   writeln('сумма: ', sum);   end. 2. дан массив целых чисел размеров 4х4. заменить все элементы главной диагонали на нули. вывести на экран монитора содержимое массива до обработки и после обработкиvar  a: array[1..4, 1..4] of integer;   i, i2: integer;   begin  for i: =1 to 4 do  begin  for i2: =1 to 4 do  begin  writeln('введите элемент: '); read(a[i,i2]);   end;   end;   writeln('массив до изменений: ');   for i: =1 to 4 do  begin  for i2: =1 to 4 do  begin  write(a[i,i2]);   end;   writeln();   end;   writeln('массив после изменений: ');   for i: =1 to 4 do  begin  for i2: =1 to 4 do  begin  if i=i2 then  a[i,i2]: =0;   write(a[i,i2]);   end;   writeln();   end;   end. 3. в двумерном массиве 4х4. вычислить среднее арифметическое элементов главной диагонали.var  a: array[1..4, 1..4] of integer;   i, i2,sum,count: integer;   srednee: real;   begin  for i: =1 to 4 do  begin  for i2: =1 to 4 do  begin  writeln('введите элемент: '); read(a[i,i2]);   if i=i2 then  begin  sum+=a[i,i2];   count+=1;   end;   end;   end;   writeln('массив: ');   for i: =1 to 4 do  begin  for i2: =1 to 4 do  begin  write(a[i,i2]);   end;   writeln();   end;   srednee: =sum/count;   writeln('среднее арифметическое главной диагонали массива: ', srednee);   end. 4. в двумерном массиве вычислить количество четных элементовvar  a: array[1..4, 1..4] of integer;   i, i2,sum,count: integer;   srednee: real;   begin  for i: =1 to 4 do  begin  for i2: =1 to 4 do  begin  writeln('введите элемент: '); read(a[i,i2]);   if (a[i,i2] mod 2=0) then  begin  count+=1;   end;   end;   end;   writeln('массив: ');   for i: =1 to 4 do  begin  for i2: =1 to 4 do  begin  write(a[i,i2]);   end;   writeln();   end;   writeln('количество чётных элементов массива: ', count);   end.

Популярно: Информатика