uses crt;var A:array[1..10]of integer;i:integer;beginfor i:=1 to 10 do beginread(A[i]);if A[i] mod 2 = 0then begin write ('A[',i,']=',A[i]); writeln; end;end;<span>end.</span>
Во-первых, не на программе паскаль, а на языке. Это язык программирования.
begin
var a:array [1..5,1..3] of integer;var i:integer; var j:integer;var sum:integer;var count:integer;count:=0; sum:=0;for i:=1 to 5 do for j:=1 to 3 do a[i,j]:=random(2*20+1); for i:=1 to 5 dobegin for j:=1 to 3 do write( a[i,j]+' '); writeln;end;
for i:=1 to 5 do for j:=1 to 3 do if(((i+j) mod 2) = 0) then begin count:=count+1; sum:=sum+a[i,j]; end;writeln('Среднее арифметическое: '+ sum/count);end.
Массив заполняется рандомно
1 Гб =1024 Мб
320*1024=327680 Мб столько информации входит жесткий диск
327680:700=468,11428 =469 дисков потребуется ,, чтоб влезла вся информация
469*15=7035 гр=7кг 35 гр будет весить набор дисков
В данном случае - никакого результата не будет, т.к. программа с ошибкой. Строка •C:=(A+B)*(B-C); не может быть выполнена, т.к. у переменной С ещё нет значения, а она участвует в вычислении.