Привет всем. Помогите написать программы на паскале.
Сами задачи во вложении.

1
Решения нужны к 1 и 3 задаче.

Ответы и объяснения

Лучший Ответ!
2014-03-06T14:41:31+00:00
Var a:array [1..200,1..200] of integer;
i,b,k,n,m:integer;
begin
writeln ('Введи размерность двумерного массива');
readln (n.m);
writeln ('Введи элементы массива');
for i:=1 to n do
for j:=1 to m do
readln (a[i,j]);
writeln ('Введи число');
Readln (b);
k:=0;
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]=b then k:=1;
write (a[i,j]:4);
end;
writeln;
end;
if k=1 then writeln ('Да, такое число есть')
else writeln('Нет, такого числа нет');
readln;
end.

var a:array [1..150,1..150] of integer;
b:array [1..200] of integer;
i,j,k,s,l:integer;
begin
writeln ('Введи размерность квадратной матрицы');
readln (k);
for i:=1 to k do begin
for j:=1 to k do begin
a[i,j]:=random(100)-50;
write (a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to k do
for j:=1 to k do
if i<j then
begin
l:=l+1;
b[l]:=a[i,j];
write (b[l]:4);
s:=s+b[l];
end;
writeln;
writeln ('Сумма получившегося массива= ',s);
readln;
end.