uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.
Ответ дал: Гость
const
a: array[1..6]of longint=(7,4,10,6,5,3);
var
i: longint;
begin
for i: =1 to 6 do write(9.8*a[i]*1200,' ');
writeln;
end.
Ответ дал: Гость
ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот
Ответ дал: Гость
у васи флешка желтая. и больше флешки пети. значит, у пети или 4гб или 8гб.
егору не понравилась красная, значит красная у пети, а у егора зеленая.
суммарное колличество флешок васи и пети меньше, чем у егора,значит у егора флешка на 16гб, зеленая. у васи 8гб,желтая. и у пети 4гб, красная.
Популярные вопросы