Шта??????????????????????
Var
a: array[1..10] of integer;
i, s, p: integer;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0; p:=1;
for i:=1 to 10 do
if (a[i] mod 2 > 0) and (a[i] < 30) then
begin
s:=s+a[i];
p:=p*a[i];
end;
writeln(s);
writeln(p);
end.
В результате процесса обработки информации получается новая информация. например в результате логических рассуждений.
Var
n, i, k: integer;
f: boolean;
begin
readln(n);
f := false;
for i := 1 to n do
begin
k := Random(100);
f := f or (k mod 4 = 0);
end;
writeln(f);
end.
Основные правила ввода текста:
> не нажимайте на клавишу ввода для перехода на новый ряд;
> не нажимайте на клавишу Пробел для создания абзацных отступов и центрирования текста;
> не нажимайте на клавишу Backspace, чтобы переместить курсор к позиции с ошибкой;
> чтобы получить большую букву, нажмите на клавишу Shift;
> следите, чтобы не была нажата клавиша Caps Lock, иначе все буквы будут большими;
> помните, что следующий абзац (после нажатия на клавишу ввода) унаследует вид (стиль) предыдущего.
С помощью команд пункта Файл или кнопок стандартной панели инструментов, которые их дублируют, над текстовым документом можно выполнить такие важнейшие операции:
1. Создать новый документ(Создать…, Ctrl + N);
2. Открыть старый документ (Открыть…, Ctrl + O);
3. Сохранить на диске (Сохранить, Shift + F12);
4. Сохранить с новым именем (Сохранить как...);
5. Закрыть (Выход);
6. Печатать (Печать…, Ctrl + P);
7. Задать параметры страницы(Параметры страницы…) и другие.
