Ответы на вопрос:
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.
Популярно: Информатика
-
mary04120.08.2021 05:04
-
a12efefsd27.08.2021 19:37
-
KLerK1113.01.2021 07:06
-
zcwe1625.07.2022 04:41
-
ibarabol31804.12.2021 20:16
-
tsagol1020.02.2021 18:21
-
Artëm164608.02.2023 04:27
-
Danielkz0226.10.2021 17:39
-
ankadudka13.02.2020 12:36
-
Iruna13125.12.2022 15:59