Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
в ячейке C3 будет 8 (т.к в ячейках B1, B2 находится 2)
program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа: '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.
var
a: array[1..31] of real;
i,k: integer;
min: real;
begin
min: =50;
for i: =1 to 31 do
readln(a[i]);
if a[i]< min then min: =a[i];
end;
k: =0;
if a[i]=min then k: =k+1;
writeln(k);
end.
Популярные вопросы