Var
a:array[1..5] of integer;
i:integer;
begin
for i:=1 to 5 do readln(a[i]);
for i:=1 to 5 do if a[i] < 0 then write(a[i],' ');
writeln('- отрицательные');
readln;
<span>end.
Так?</span>
Можно использовать любое слово женского рода, уменшительно-ласкательного значения. Например-мамочка, девочка и т.д.
Не понятно про "Жесткий" цикл. Но как вариант:
var i:integer;
begin
for i:=-30 to 50 do
if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.
На выходе:
-24
-12
12
24
36
48
<span>Компьютер - это электронное устройство, предназначенное для </span>работы с информацией
Источник информации
приемник информации
электронная почта