Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
а)домащняя библиотека
в виде таблицы
1.номер
2.название
3.автор
4.полка
б)1.номер
2.слово
3.вопрос
4.род
5.число
6.падеж
в)1.номер
2.имя
3.фамилия
4.отчество
5.телефон
6.адрес
7.дата рождения
8.хобби
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.
Популярные вопросы