Program chik;
var a:array[1..1000]of integer;
var n,i:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
if (i mod 2=0)then a[i]:=0;
end;
for i:=1 to n do
begin
write(a[i],' ');
end;
end.
Лінивий так-телевізор,ні-ДЗ
1. 512 байт = 512*8 бит
Память для хранения одного пикселя = 512*8/(64*64) = 1 бит
Число цветов в палитре = 2^1 = 2
2. При использовании 16777216 цветов для хранения одного пикселя требуется log(2)16777216 = 24 бита = 3 байта. Для хранения изображения размером 1600*1200 пикселей необходимо 1600*1200*3 байт = 1600*1200*3/1024 Кбайт = 5625 Кбайт = 5625/1024 Мбайт ≈ 5,5 Мбайт. Ответ: подойдет видеокарта с памятью 64 Мбайт
3. При использовании 256 цветов для хранения одного пикселя требуется log(2)256 = 8 бит = 1 байт. Для хранения изображения размером 512*512 пикселей необходимо 512*512*1 байт = 512*512/1024 Кбайт = 256 Кбайт
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Mas=array[,] of integer;
procedure GetMas(s:string; var a:Mas);
begin
Writeln('*** Массив ',s,' ***');
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('Вводите элементы массива');
a:=ReadMatrInteger(n,m)
end;
function SumDiag(a:Mas):integer;
begin
Result:=0;
for var i:=0 to Min(a.RowCount,a.ColCount)-1 do Result+=a[i,i]
end;
begin
var a,b,c:Mas;
GetMas('A',a);
GetMas('B',b);
GetMas('C',c);
Writeln('Общая сумма элементов главных диагоналей равна ',
SumDiag(a)+SumDiag(b)+SumDiag(c))
end.
<u>Пример</u>
*** Массив A ***
Количество строк в массиве: 3
Количество столбцов в массиве: 4
Вводите элементы массива
-33 -50 34 -41
-31 10 37 31
32 -49 -32 -27
*** Массив B ***
Количество строк в массиве: 2
Количество столбцов в массиве: 2
Вводите элементы массива
-22 35
0 11
*** Массив C ***
Количество строк в массиве: 3
Количество столбцов в массиве: 2
Вводите элементы массива
23 38
17 -8
16 -1
Общая сумма элементов главных диагоналей равна -51