Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
var
i,n,a: integer;
read(a);
if (a mod 3=0)and(a mod 5> 0) then write(a,' ');
end;
writeln;
x: real;
readln(x);
writeln(round(x));
1, 2, 5, 9 -однозначные числа
10, 25, 40, 41 - двузначные числа
1, 2, 11, 29 - простые числа
Популярные вопросы