#include <stdio.h>
int main()
{
int cm, m;
printf("Enter cm: ");
scanf("%d", &cm);
m = cm / 100;
printf("Result: %d meters.", m);
return 0;
<span>}</span>
Program morebrains;
const
n = 12; {Количество элементов массива}
var
F:array[1..n] of integer;
s:string;
i,sum:integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{заполняем массив}
writeln;
for i:=1 to n do F[i]:=i*i-5*i-14;
{Ищем сумму положительных}
sum:=0;
for i:=1 to n do
if F[i]>0 then sum:=sum+F[i];
{Выводим сумму}
writeln;
writeln('Сумма положительных элементов равна ',sum);
end.
Security 360 - Антивирусная программа для ПК
Программа написана на PascalABC.NET
// Ниже код:
program element;
var a: array[1..1000] of real; i, j, c: integer; b: real; begin writeln('Введите число элементов: '); read(j); for i:= 1 to j do begin read(a[i]); b:= b + a[i]; end; b:= b / j; for i:= 1 to j do if a[i] > b then inc(c); writeln; write('Ответ: ', c);end.