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 <iostream>
using namespace std;
int main()
{
int n;
cout << "Сколько Вам лет?";
cin >> n;
if(n % 10 == 1 && n != 11) {cout << "Вам " << n << " год"; return 0;}
if(n % 10 >= 2 && n % 10 <= 4) {cout << "Вам " << n << " года"; return 0;}
if(n % 10 == 0|| n == 11 || n % 10 >= 5 && n % 10 <= 9) {cout << "Вам " << n << " лет"; return 0;}
return 0;
}
var
a, b, x, s, p: integer;
begin
writeln(' Ввести х');
readln(x);
s := 0;
x := Abs(x); { защита от ввода отрицательных }
while x > 0 do
begin
s := s + x mod 10;
x := x div 10
end;
writeln(' Сумма цифр=', s);
end.
F(5)=F(4)*7
F(4)=F(3)*6
F(3)=F(2)*5
F(2)=F(1)*4=1*4=4
F(3)=4*5=20
F(4)=20*6=120
F(5)=120*7=840
Ответ: f
Program Pr;
Var
a : array [1..100, 1..100] of integer;
i, max, min, j, n: integer;
Begin
cls;
read(n);
min := 100000;
max := -100000;
for i := 1 to n do
for j := 1 to n do
begin
read(a[i,j]);
if (a[i,j] > max) then
max := a[i,j];
if (a[i,j] < min) then
min := a[i,j];
end;
writeln ('Сумма = ', min + max);
writeln ('Разность = ', max - min);
writeln ('Произведение = ', max * min);
<span>End.</span>