Цель: дойти до дома
↓
Маша→управляет медведем
↓
Результат: добралась до дома и угостила родных пирожками
Program A1;
var a,b:Integer; {Можно и real}
begin
readln (a,b);
if a<b then writeln ('Число а больше числа б') else writeln ('Число б больше числа а');
end.
#include <iostream>#include <stdio.h>#include <conio.h>
int main() { setlocale(LC_ALL, "");
int arr[5];
for (int i = 0; i < 5; ++i) { std::cout << "Введите число:"; std::cin >> arr[i]; }
int min = arr[0], max = min;
for (int i = 0; i < 5; ++i) { if (arr[i] < min) min = arr[i]; if (arr[i] > max) max = arr[i]; }
std::cout << min << "\n" << max; _getch(); return 0;}
Var
n, cnt, sum, i, t: integer;
begin
read(n);
cnt := 0;
sum := 0;
for i := 1 to n do
begin
read(t);
if t > 0 then
begin
inc(cnt);
sum := sum + t;
end;
end;
writeln(sum / cnt : 0 : 1);
write(cnt);
end.