Question

Помогите, пожалуйста. Нужно написать на языке паскаль программу для массива данных 10 на 10 элементов, заполненных случайными значениями от 55 до 77 включительно, найти сумму пяти наименьших значений, результат вывести на экран.

Answer 1

Ответ:

var mas : array [1..n,1..m] of integer;

i,j,x,i2,j2: integer;

begin

randomize;

j2:=0;

i2:=0;

writeln('Ñàì ìàññèâ');

for i:=1 to n do

for j:=1 to m do

mas[i,j]:=random(21)-10;

for i:=1 to n do

begin

begin

for j:=1 to m do

write(mas[i,j]:3);

end;

writeln

end;

writeln('Ââåäèòå ÷èñëî X');

read(x);

for j:=1 to m do

begin

for i:=1 to n do

if mas[i,j] = x then begin

i2:=i;

j2:=j;

break;

end;

if i2 <>0 then break;

end;

if i2=0 then writeln('Íåòó ÷èñåë ðàâíûõ X')

else writeln('Ïåðâîå ÷èñëî ìàññèâà ðàâíîå õ , åãî íîìåð ñòðîêè = ',i2,' åãî íîìåð ñòîëáöà = ',j2);

end.

Объяснение: