30
дана прямоугольная матрица а[1..n,1..m] ,заполненная случайными числами в диапазоне от 10 до 40 включительно. вывести на экран матрицу, максимальный элемент данной матрицы в каждой строке
для начала переведем кбайты в биты:
2500кбайт=2500*1024*8=20480000бит,
затем найдем искомое время: t=объём файла/скорость передачи,
t=20480000/1024000=20 секунд
program vvl;
var x: integer;
v: real;
begin
write('x=');
readln (x);
v: = abs(a)-2;
writeln ('v='; v: 2: 1);
end.
решение на
program xxx;
var i, n : integer;
a, s : real;
b : array [1..20] of real;
begin
writeln('введите число а=');
readln(a);
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива b: ');
for i: =1 to n do
readln(b[i]);
writeln('исходный массив b: ');
for i: =1 to n do
writeln(b[i]);
s: =0;
for i: =1 to n do
if b[i] > a then s: =s+b[i];
writeln('сумма элементов =', s);
readln
end.