Program mas; const n=25; var a:array [1..n] of integer; b,i: integer; begin b:=0; for i:=1 to n do begin a[i]:=random(200)-100; if (a[i] mod 5)=0 then b:=b+1; end; writeln('Массив: ',a,', количество элементов кратных 5: ',b); end.
1. var a:integer; begin write('Введите число: '); readln(a); if a>0 then a:=a-10 else a:=a+10; writeln('a = ',a); end.
Пример: Введите число: 5 a = -5
2. var a,b,p:integer; begin writeln('Введите два числа: '); readln(a,b); if a*b<0 then p:=-2*a*b else p:=3*a*b; writeln('p = ',p); end.
Пример: Введите два числа: -3 -8 p = 72
3. var a,b,r:integer; begin writeln('Введите два числа: '); readln(a,b); if a>b then r:=a-b else r:=b-a; writeln('r = ',r); end.
Пример: Введите два числа: 25 48 r = 23
4. var r:integer; begin writeln('Введите рост: '); readln(r); if r>180 then writeln('высокий') else if r=180 then writeln('нормальный') else writeln('низкий'); end.
program pediatr; var h_old, h_new, w_old, w_new: integer; begin write('введите рост ребёнка месяц назад (в см): '); readln(h_old); write('введите рост ребёнка сейчас (в см): '); readln(h_new); write('введите вес ребёнка месяц назад (в г): '); readln(w_old); write('введите рост ребёнка сейчас (в г): '); readln(w_new); if ( (h_new - h_old) >= 3 ) and ( (w_new - w_old) >= 700) then writeln('Ваш ребёнок развивается хорошо') else writeln('Ваш ребёнок меньше нормы'); end.
const n=25;
var a:array [1..n] of integer;
b,i: integer;
begin
b:=0;
for i:=1 to n do
begin
a[i]:=random(200)-100;
if (a[i] mod 5)=0 then
b:=b+1;
end;
writeln('Массив: ',a,', количество элементов кратных 5: ',b);
end.