Во-первых, не на программе паскаль, а на языке. Это язык программирования.
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.
Массив заполняется рандомно
Program N3;var b,a:integer;begin b:=0; write('Введите число - ');readln(a); repeat a:=a*3; b:=b+1; until a>100; writeln('Нужно умножить ', b, ' раз');end.
<span>Пиксель, наверное, разве что слово "логический" смущает</span>
Var i,n:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(38)-25;
write(a[i]:5);
end;
writeln;
for i:=1 to 10 do
n:=n+a[i];
writeln('Сумма всех элементов=',n);
<span>end.</span>
Будет 144
Решение:
2х1 1
2х2 2
2х3 1+2=3
2х4 2+3=5
2х5 3+5=8
2х6 5+8=13
2х7 8+13=21
2х8 13+21=34
2х9 21+34=55
2х10 34+55=89
2х11 55+89=144
Если помог поддержите и нажмите спасибо!)