Const n=10; var a:array[1..n] of integer; i,p:integer; begin p:=1; for i:=1 to n do begin a[i]:=random(-50,50); write(a[i],' '); if a[i]<0 then p:=p*a[i]; end; writeln; writeln('Произведение= ',p); end.
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 begin var k:=0; var Terminate:boolean; repeat Terminate:=True; var n:=ReadInteger('Введите номер месяца:'); case n of 1,3,5,7,8,10,12:Writeln('31 день'); 4,6,9,11:Writeln('30 дней'); 2:Writeln('28 дней в обычном году и 29- в високосном') else begin Writeln('Вы ошиблись, номер должен быть от 1 до 12'); Inc(k); Terminate:=False end end until Terminate; if k>0 then Writeln('Вы ошиблись ',k,' раз(а).') end.
Тестовое решение: Введите номер месяца: 18 Вы ошиблись, номер должен быть от 1 до 12 Введите номер месяца: 0 Вы ошиблись, номер должен быть от 1 до 12 Введите номер месяца: 5 31 день Вы ошиблись 2 раз(а).
Const n=10; m=5; var a:array[1..n,1..m+1] of integer; i,j,k,sp,s:integer; begin Randomize; writeln(' Результаты соревнований'); for i:=1 to n do begin s:=0; for j:=1 to m do begin a[i,j]:=random(50)+50; write(a[i,j]:4); s:=s+a[i,j]; end; a[i,m+1]:=s; writeln(s:5); end; write('k='); readln(k); sp:=0; for i:=1 to n do if a[i,m+1]>=k then sp:=sp+1; writeln('sp=',sp); end.
n=10;
var
a:array[1..n] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to n do
begin
a[i]:=random(-50,50);
write(a[i],' ');
if a[i]<0 then p:=p*a[i];
end;
writeln;
writeln('Произведение= ',p);
end.