Program RLN; var x:byte; begin writeln('Введите число, чтобы узнать, какому месяцу оно соответствует:'); Readln(x); Case x of 0: writeln('Такого месяца не существует'); 1: writeln('Январь.'); 2: writeln('Февраль.'); 3: writeln('Март.'); 4: writeln('Апрель.'); 5: writeln('Май.'); 6: writeln('Июнь.'); 7: writeln('Июль.'); 8: writeln('Август.'); 9: writeln('Сентябрь.'); 10: writeln('Октябрь.'); 11: writeln('Ноябрь.'); 12: writeln('Декабрь.'); 13..1000: writeln('Такого месяца не существует.'); end; end.
1) program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (mas[i] mod 2)=0 then mas[i]:=mas[i]+1; end; end. 2)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (mas[i] mod 2)=0 then mas[i]:=0; else mas[i]:=mas[i]*3; end; end. 3)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (i mod 2)=0 then mas[i]:=(mas[i]*mas[i]); end; end. 4)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin readln(mas[i]); if (mas[i]<0) then mas[i]:=mas[i]*(-1); end; end.
ну там у тя в компе должен быть "correct" он исправит и потом