Var a,b,c,d,m,i:integer; beginfor i:=1 to 10 do begin writeln('Введите число'); read(m); if m>0 then begin a:=a+1; c:=c+m end else begin b:=b+1; d:=d+m; end; end; writeln('Кол-во положительных равно ',a); writeln('Кол-во отрицательных равно ',b); writeln('Сумма положительных равна ',c); writeln('Сумма отрицательных равна ',d); end.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016 begin var n:=ReadInteger('n='); var a:=ArrRandomReal(n,1,50); a.Println; var m:=a.Min; if m<>0 then for var i:=0 to n-1 do a[i]/=m; a.Println end.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016 begin var n:=ReadInteger('n='); var a:=ArrRandom(n,1,50); a.Println; var m:=a.Max; if m<>0 then for var i:=0 to n-1 do a[i]+=m; a.Println end.
Var a: array[1..100] of integer; i, j, c: integer; begin Writeln('Массив '); for i := 1 to 100 do begin a[i] := random(201) - 100; write(a[i], ' '); end; Writeln; write('Введите число (от -100 до 100) '); Readln(j); for i := 1 to 100 do if a[i] = j then begin c := c + 1; write(i, ' '); end; Writeln; if c>1 then write('В массиве число введённое вами есть в массиве и даже несколько (', c, '). Их индексы представлены выше') else if c = 1 then write('Число, которое вы ввели есть в массиве. Его индекс представлен выше') else write('Такого числа в массиве нет'); end.
beginfor i:=1 to 10 do
begin
writeln('Введите число');
read(m);
if m>0 then begin
a:=a+1;
c:=c+m
end
else
begin
b:=b+1;
d:=d+m;
end;
end;
writeln('Кол-во положительных равно ',a);
writeln('Кол-во отрицательных равно ',b);
writeln('Сумма положительных равна ',c);
writeln('Сумма отрицательных равна ',d);
end.