1 c:=0
for i:=1 to 8 do begin
if a [i]<0 then inc (c);
end;
writeln (c);
2 c:=0
for i:=1 to 8 do begin
c=c+i×i;
end;
writeln (c);
Светлый,яркий,огромный,тусклый,широкий,близкий
Var
a: integer;
t,s: boolean;
begin
t := true;
read(a);
s := a > 0;
if a <> 0 then
read(a);
while t and (a <> 0) do
begin
t := (a > 0) <> s;
s := not s;
read(a)
end;
writeln(t)
end.
// task 1,2
const n= 15;
var a:array[1..15]of integer;
i,min,max:integer;
begin
min:=99999;
max:=0;
//Заполняем массив случайными числами
//И выводим его
for i:=1 to 15 do begin
a[i]:=random(100);
write(a[i]:5);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln();
//Вывод в обратном порядке
for i:=1 to 15 do write(a[n-i+1]:5);
writeln();
writeln ('Разность max-min ',max-min);
end.