Program chkr5; const N=10; var a:array [1..N] of integer; chkr,i:integer; flag:boolean; //Создаем массив из 10 (N) элементов begin randomize; flag:=false; //Присваиваем переменной flag отрицательное значение, эта переменная потом нам проверить есть ли в массиве числа кратные 5 for i:=1 to N do begin a[i]:=random (21)-10; write (a[i], ' '); //Заполняем массив числами на диапозоне [-10;10] и выводим его if a[i] mod 5=0 then begin chkr:=chkr+1; flag:=true; end; //Каждый раз проверяем: Если элемент при делении на 5 дает в остатке 0, тогда в переменную записываем плюс единичку (к переменной +1) end; writeln; if flag=true then write ('Чисел, кратных 5: ', chkr) else write ('Чисел, кратных 5 нет'); //Выводим результат, если цикл if выполнялся хоть раз (было хоть одно число, кратное 5), иначе говорим, что таких чисел нет end.
uses crt;
var a, b, c: integer;
u, p, s: real;
begin
clrscr;
write ('vvedite kolichestvo udobrenii, nuzhnyh dlya 1 m^2: ');
readln (u);
write ('vvedite storony uchastka: '); // таким образом можно ввести любые
// стороны, не только 3, 4 и 5
readln (a, b, c);
// можно сразу написать a:=4; b:=3; c:=5;
p:=a+b+c;
writeln (' dlina ogrady - ', p:0:2);
p:=p/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); // вычисление площади по формуле Герона
u:=u*s;
writeln ('kolichestvo trebuemyh udobrenii - ', u:0:2);
readkey;
end.