Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program kvadrat;
var i : integer;
begin
for i: = 10 to 100 do
writeln ( i: 2, i*i : 5);
readln;
end.
думаю, что 19,5 кб = 0,019 мб.
если массив состоит из 10 элементов то код программы:
const
n=10;
var
a: array[1..n] of integer;
i,min: integer;
for i: =1 to n do read(a[i]); {вводишь заданный массив}
min: =32767;
for i: =1 to n do
if a[i]< min then min: =a[i];
write(min);
end;
1)52: 2=26(чел) любят пирож
2)26-20=6(чел) любят морож
ответ 6 чел
Популярные вопросы