Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите составить программу на Паскале
Создать двумерную целочисленную матрицу А(3х4). Ввести данные. Вывести значение А(1,2). Найти сумму элементов, среднеарифметическое, сумму квадратов. Найти нулевой элемент в матрице или выдать сообщение об его отсутствии.
1 | Автор: Hachetlov_R | 2012-05-23, 20:11   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2012-05-23, 20:19   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-05-23, 20:19   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: