Var
st:real;
i,n:integer;
t:array[1..31]of integer;
begin
writeln('Температура в январе:');
for i:=1 to 31 do
begin t[i]:=random(-10,5);
write(t[i],' ');
st:=st+t[i];
if t[i]<0 then n:=n+1
end;
st:=st/31;
writeln;
writeln('Число дней с отр.температурой: ',n);
writeln('Средняя температура: ',st:1:1)
<span>end.</span>
Пётр баскетболист, Геннадий волейболист, Алексей гимнаст, Владимир легкоатлет
Pascal:
program decrement;
var
i: integer;
begin
i := 50;
while i >= 1 do
begin
if i mod 2 = 1 then
writeln(i, ' ');
i := i - 1;
end;
end.
---
C++:
#include <iostream>
int main() {
int i = 50;
while (i >= 1) {
if (i % 2 == 1)
std::cout << i << ' ';
i--;
}
return 0;
}
uses crt;
var A,B:integer;
begin TextColor(Blue);
writeln('<<<Нахождение максимального из двух целых чисел >>>' :50); writeln;
write('Первое число= ? ');
readln(A);
write('второе число= ? ');
readln(B);
write('Максимальное из двух чисел ');
if A>B then writeln(A)
else
if B>A then writeln(B) else writeln('Числа равны!'); readln;
end.
Алфавит
........................