Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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: ');
writeln(b[i]);
s: =0;
if b[i] > a then s: =s+b[i];
writeln('сумма элементов =', s);
readln
end.
революция 1917 года и великая отечественная война (1941-1945)
1 байт/с = 23 бит/с = 8 бит/с; 1 кбит/с = 210 бит/с = 1024 бит/с; 1 мбит/с = 210 кбит/с = 1024 кбит/с; 1 гбит/с = 210 мбит/с = 1024 мбит/с.
по одному.
обь в канал, мир,енесей,россия проплыли канал. обь выплыла и поплыла себе куда надо.
мир,енесей,россия вернулись обратно перед каналом
в канал заплыл восток.
мир,енесей,россия проплыли канал. восток уплыл
и тд
Популярные вопросы