Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
вот так понятней буде)) ну и более правильно, для
var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.
var
x : array [1..15] of integer;
i : integer;
min : integer;
kol_nol : integer;
begin
kol_nol : = 0;
for i: =1 to 15 do
write ("введите элемент массива: ");
readln(x[i]);
end;
min : = x[1];
for i : = 0 to 15 do
if (x[i] > 0) then
if (x[i] < min) then
min : = x[i];
if (x[i] = 0) then
inc(kol_nol);
writeln(min);
writeln(kol_nol);
желтый знак - нехватка памяти
все остальное - размер
1) (60-10): 2=25 (мин.) - потратила сегодня
2) 25+10=35 (мин.)
ответ: вчера катя выполнила по за 35 минут.
Популярные вопросы