Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
Юля использовала команду: 2) a2:=a div 10 mod 10;
1) a2:=a mod 10 div 10;
будет 0 в любом случае
число mod 10 = последней цифре числа
число div 10 - число без последней цифры, в случае однозначного числа - всегда будет 0
Например: (123 mod 10) div 10 = 3 div 10 = 0
2) a2:=a div 10 mod 10;
число div 10 = число без последней цифры
число mod 10 = последней цифре числа
Например: (123 div 10) mod 10 = 12 mod 10 = 2
3) a2:=a div 100 mod 10;
будет первая цифра трёхзначного числа
число div 100 = число без двух последних цифр, в случае трёхзначного числа - однозначное число
число mod 10 = последней цифре числа, в случае однозначного числа - самому числу
Например: (123 div 100) mod 10 = 1 mod 10 = 1
Двойное отрицание же. Просто D.
Пылесос , Газонокосилка, Посудомойка
Мультимедийная презентация - это наглядная демонстрация информации с использованием ИКТ