program n_3;
var a: array [1..30] of integer; n, m, l, i:integer; s: double;
begin
m:=0; l:=0;
for i:=1 to 30 do begin
read(a[i]);
s:=s+a[i];
if a[i]>=8 then m:=m+1;
if a[i]>l then begin l:=a[i]; n:=i; end;
end;
writeln ('Зачет сдали ', m, ' учеников');
writeln ('Среднее количество решенных задач равно: ', s/30);
writeln ('Больше всех решил задач ученик под номером ', n);
end.
Двойное нажатие по ярлыку установленной программы приведет ее в исполнение.
#include <stdio.h>
#include <conio.h>
int main (int argc, char *argv[])
{
int S = 0, i;
for(i = 1; S<50; i++)
S+=i;
printf("S = %d",S);
getch();
}
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Transform(t -> t.IsEven ? t + 1 : t * 2);
a.Println
end.
===== PascalABC.NET =====
begin
var x := ReadReal;
var y := x - x * x / 3 + x ** 6 / 4;
Println(y);
y := 3 ** (-x) + cos(x) - Sin(x * x);
Println(y);
y := (x ** 3 + 9 * x + 12) / (x * x - 6 * x + 15);
Println(y);
y := x + 12 * Sin(2 * x) + Abs(x ** 3 + x ** 5);
Print(y)
end.