Var
mas:array [1..20] of integer;
i,sum,A:integer;
begin
for i:=1 to 20 do
read(mas[i]);
for i:=1 to 20 do
If odd(mas[i]) then
sum:=sum+mas[i];
writeln('Сумма элементов имеющих нечетное значение = ',sum);
writeln('Введите А');
readln(A);
writeln('Индексы элементов, значение которых больше,чем А:');
for i:=1 to 20 do begin
if mas[i]>A then
write(i,' ');
end;
end.
Вода, лед и пар. Имеют одинаковый состав , но изменяются структуры строения.
1) 1 4 7
2) 1 число больше второго на 3
3) 1 число больше второго на 3 а второе число больше третьего на 2
4) ,5) 7 4 1 потому что надо делать всё на оборот пункту 2
6) Конец.Ты молодец !!!
И я молодец !!!
Информацию можно потерять к примеру забыть или записать на листок а потом выкинуть листок удалить информацию с копютера