//pascalabc var a, b, c, p, s : real; begin write('введите длину стороны a> '); readln(a); write('введите длину стороны b> '); readln(b); write('введите длину стороны c> '); readln(c); writeln('вычисление по формуле герона'); p : = (a + b + c) / 2; s : = sqrt(p * (p - a) * (p - b) * (p - c)); writeln('площадь треугольника s = ', s); end.
glebovaludok
02.04.2021
Program z1; var mas: array[1..100] of integer; i,a,b,c,n,min: integer; begin a: =0; min: =1000; c: =0; writeln('введите количество элементов массива'); readln(n); writeln('введите элементы массива'); for i: =1 to n do begin read(mas[i]); if mas[i]> 0 then a: =a+mas[i]; if mas[i]< min then begin min: =mas[i]; b: =i; end; if mas[i] mod 5=0 then c: =c+1; end; writeln('сумма положительных элементов массива равна ',a); writeln('номер наименьшего элемента массива равен ',b); writeln('количество элементов массива, кратных пяти, равно ',c); end.