|
Создать двумерную целочисленную матрицу А(3х4). Ввести данные. Вывести значение А(1,2). Найти сумму элементов, среднеарифметическое, сумму квадратов. Найти нулевой элемент в матрице или выдать сообщение об его отсутствии.
|
|
|
|
var
a:array[1..3,1..4]of integer;
i,j,s,ss:integer;
l:boolean;
begin
l:=false;
randomize;
for i:=1 to 3 do
for j:=1 to 4 do begin
a[i,j]:=random(11);
s:=s+a[i,j];
ss:=ss+a[i,j]*a[i,j];end;
writeln(round(s/12));
writeln(ss);
for i:=1 to 3 do
for j:=1 to 4 do begin
if a[i,j]=0 then writeln(i,' ',j) else
if (i=3)and(j=4) then writeln('Not Found');
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
