Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, j, k, min : integer;
a: array[1..10, 1..20] of integer;
b: array[1..10] of integer;
begin
for i: =1 to 10 do
for j: =1 to 20 do
readln(a[i,j]);
b[i]: =0;
b[i]: =b[i]+a[i,j];
end;
min: =b[1]; k: =1;
for i: =2 to 10 do
if b[i]< min then begin max: =b[i]; k: =i end;
writeln('наименьшая сумма элементов =', min);
writeln('она находится в строке -', k);
readln
end.
для начала переведем кбайты в биты:
2500кбайт=2500*1024*8=20480000бит,
затем найдем искомое время: t=объём файла/скорость передачи,
t=20480000/1024000=20 секунд
найти сумму элементов одномерного массива. размер произвольный. элементы вводятся с клавиатуры.
program summa;
var a: array[1..100] of real;
i, n: integer;
s: real;
write (‘n=’); readln (n);
s: =0;
for i: =1 to n do
write (‘введитечисло’); readln (a[i]);
s: =s+a[i];
writeln(‘сумма элементов равна ‘,s);
var a,b,c: real; beginwriteln('введите данные о катетах'); readln(a,b); c: =1/2*a*b; writeln('площадь= ',c: 0: 2); readlnend.
если паскаль абс, то предпоследнюю строку не обязательно.
Популярные вопросы