Составьте программу, которая заполняет массив а[1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы, значения которых являются четными и кратными 3
Program z14; Var q, z:integer; sr, sg, x, y: real;Begin write('Введите число Q = '); readln(q); write('Введите число Z = '); readln(z); writeln('Задание 2:'); if (q = z) then begin sr:= (q + z) / 2; writeln('Среднее арифметическое = ', sr); end else begin sg:= sqrt(q * z); writeln('Среднее геометрическое = ', sg); end; writeln('Задание 3:'); x:= -3; while (x <= 3) do begin y:= 5*x*x - x + 2; writeln('X = ', x, ' Y = ',y); x:= x + 0.5; end;End.
Текст, прочитанный вслух, он же записанный на бумаге, он же показанный пантомимой (если возможно) Статистика чего-нибудь, выраженная в числовых таблицах, она же в диаграммах, она же в графиках Цвет, показанный сам по себе, либо в виде разложения на элементарные цвета, либо числовым значением (см. фотошоп) Из математики: вещественное число, записанное в виде цифр либо как точка на вещественной прямой комплексное число, записанное в алгебраическом виде, либо в тригонометрическом, либо нарисованное на комплексной плоскости функция, записанная аналитически либо представленная своим графиком и т. п.
var
a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(30)+1;
write (a[i],' ');
end;
writeln;
for i:=1 to 20 do
if (odd(a[i])=false) and (a[i] mod 3 = 0) then write (a[i],' ');
readln;
end.