1. дан двумерный массив размером 3x5. вычислить сумму элементов массива 2. дан массив целых чисел размеров 4х4. заменить все элементы главной диагонали на нули. вывести на экран монитора содержимое массива до обработки и после обработки 3. в двумерном массиве 4х4. вычислить среднее арифметическое элементов главной диагонали. 4. в двумерном массиве вычислить количество четных элементов 5. дан массив a(5,5). вывести ее в элементы ниже главной диагонали в треугольном виде (т. е. напечатать элементы нижнего треугольника в виде треугольника)
229
231
Ответы на вопрос:
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.
Всего пикселей в изображении - 64*64=2^6*2^6=2^12 выделено памяти - 1.5*8*2^10=3*2^12 => => на один пиксель тратится 3*2^12/2^12=3 бита значит количество вариантов для данного пикселя = 2^3=8 ответ: 8
Популярно: Информатика
-
Слендер1221.06.2022 11:47
-
muradir110230.01.2020 09:30
-
ficon26328.04.2020 13:30
-
Dolboeb900003.03.2020 19:12
-
vadimkor0605.06.2023 03:07
-
vanchugovp02hjd17.04.2022 00:07
-
enotick301003.03.2023 23:22
-
Серый43а24.04.2022 18:01
-
linakirilinaa20.03.2022 13:40
-
padafet250406.07.2022 05:48