Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer;
s : real;
a : array [1..20] of real;
begin
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива а: ');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив а: ');
writeln(a[i]);
s: =0;
if a[i] mod 2 = 0 then s: =s+a[i];
writeln('сумма четных элементов =', s);
readln
end.
посадка дерева: 1.купить семя.
2.найти место для посадки.3.вскопать яму.4.посадить семя.5.закопать яму.переход улицы по светофору: 1.подойти к дороге (к светофору)2.посмотреть на цвет, который сейчас горит.3.дождаться нужного цвета.4.перейти дорогу.5.отправиться дальше.
var d,i: integer;
s: string;
read(d);
s: =str(d);
for i: = 1 to length(s) do
if int(s[i]) mod 2=0 then
writeln(s[i]);
var x,c: real;
read(x);
c: =frac(c);
writeln(c: 1: 6);
readkey;
Популярные вопросы