экзамен через 10 дней помогите решить, 3 задачи Опции

[trew]

1)Вычислить значения функции и распечатать в виде таблицы x, y: y=(2x+0,7)^16 для пяти равно отстоящих значениях x; x1=0,4 h=0,1
2) даны два целочисленных вектора А(6) и В(5) распечатать все элементы которые входят в оба вектора.
3) дана матрица вещественно численных А(10, 10) найти число 10
10
S=∑ мах А(i, j) распечатать 1<=i<=10
1

[mind abuse]

Код

Program t1;
uses
crt;
var
  a:array[1..100,1..100] of real;
  i,j,n,m:integer;

begin
clrscr;

writeln('input number of columns and strings of the matrix');
write('n=');
readln(n);

writeln('inputing elements');

for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(11);
end;

for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:1);
end;

for i:=1 to n do
for j:=1 to n do
if a[i,j]=10 then
writeln('a[',i,',',j,']=10');

readln;
end.

С случайным заполнением матрицы числами до 11.

А вот номер три - найти сумму максимальных элементов по строкам элементов? для матрицы с 10 строками и задаваемым с клавиатуры числом столбцов?

Сообщение отредактировано: mind abuse - 18.05.2008 23:16