Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var t: integer;
begin
read(t);
while t > 6 do
t: =t-6;
case t of
0..2: write('green');
3: write('yellow');
4..6: write('red');
end;
end.
program xxx;
var i, k : integer;
a : array [1..10] of real;
write('введите элементы массива а: ');
for i: =1 to 10 do
readln(a[i]);
writeln('исходный массив а: ');
write(a[i]);
k: =0;
for i: =1 to 9 do
if a[i]< > a[10] then k: =k+1;
writeln('элементов отдичных от последнего -', k);
readln
Популярные вопросы