Матричные, струйные и лазерные.
var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.
1) Количество и цена товаров кажого типа
2) Цена покупки, данное количество денег
3) Время начала и конца фильма
4) Высота и основание или три стороны
5) Масса кирпича, высота дома
6) Потребленная энергия (её количество), цена за 1 у. е.
7) Перевод каждого русского слова на итальянский, а так же правила грамматики.
8) Перевод каждого итальянского слова на русский, а так же правила грамматики.