Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
напиши само ,я
ткань, глина, дерево, стекло, бумага, металл, пластмасса, резина, лед, фасфор, газ, вода из всего этого може быть сделана информацтонная модель.
var a: array [1..10] of real;
s,i: integer;
begin
{vvod tablicy}
for i : = 1 to 10 do
if a[i]< > 0 then s: =s+1;
writeln(s);
end.
здесь идёт чередование чётных чисел с нечётными
Популярные вопросы