Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a: array [1..10] of integer;
i,k: integer;
begin
read(a);
k: =1;
for i : = 1 to 10 do
if a[k]> a[i] then k: =i;
end;
if k mod 2 = 0 then writeln(k," - chetnoe")
else writeln(k," - ne chetnoe");
end.
var
a: array[1..100] of integer;
i,n: integer;
readln(n);
writeln('исходный массив');
for i: =1 to n do
a[i]: =random(50)-25;
write(a[i]: 4);
writeln;
writeln('измененный массив');
if a[i]=0 then a[i]: =n;
if a[i]< 0 then
if (a[i] mod 7=0) then a[i]: =abs(a[i])
else a[i]: =a[i]*(-2);
чесно говоря не уверенна что понимаю
найти первое предложение
пока есть найденное предложение
перевести его
записать перевод
найти следущее предложение
конец цикла
слон не летает потому что у него нет крыльев а у птице есть
Популярные вопросы