Ответ:
http://lumpics.ru/change-size-of-slide-in-powerpoint/
Объяснение:
Графический редактор<span />
Const Sz = 100; // Размер массива
var
b,a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k, i: integer;
begin
k:=0;
N := 20;
writeln ('chisla');
for i:=1 to N do begin
a[i] := Random(60)-30;
write (a[i],' ');
end;
writeln;
writeln ('---------------------------------------------');
for i:=1 to n do begin
if ((a[i]<=5) and (a[i]>0)) then
begin
k:=k+1;
write (i,' ');
end;
end;
if (k=0) then
write('no');
end.
А:=5
Если а<5 то с:=1
или
с:=2
См фото
=====================================
