Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
<span>end.</span>
результатом этого алгоритма могут быть числа 217 1218 112 ответ 3
program - имя программы
var ввод переменных
integer целочисленный тип данных
real тип данных с плавающей точкой
begin начало программы
read прочтение переменных
write ввод текста в программе
end конец программы
обучающие программы часто создаются в технологии мультимедиа для того,чтоб ученик лучше понимал и запоминал учебный материал.
преимущества мультимедиа от традиционных:легкое понимание изучаемого материала,контакт ученика с новой областью знаний,экономия времени обучения,на более долгий срок остается в памяти полученные знания.
Як я маю тобі це показати на блокноті, якщо це все треба робити на копі?