Ввести 10 чисел. Проверить, делится ли каждое число на 3. Если делится, то вывести число без изменения, в противном случае, вывести число, умножив его на 2.
Составить блок - схему .

program zadacha;

uses crt;

var otvet: real;

begin

otvet: = ((4785**45*45))/50;

writeln(otvet: 5: 5);

readkey;

end.

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

склонение- это изменение слова по падежам.

к 1-му склонению относятся имена существительные мужского и женского рода с окончаниями -а, -я в именительном падеже, например, дядя, коза.

ко 2-му склонению относятся имена существительные мужского рода с нулевым окончанием и среднего рода с окончаниями -о, -е в именительном падеже, например, стол, лось, небо, море.

к 3-му склонению относятся имена существительные женского рода с нулевым окончанием в именительном падеже, например, любовь, дочь.

чтобы определить,к какому склонению относится имя существительное, нужно определить его род и окончание в именительном падеже.

существительные кино,кофе,метро - несклоняемые (неизменяемые), не относятся ни к одному из трёх типов склонения. у них нет окончания.

мягкий знак после шипящих на конце существительных 3-го склонения (женского рода) пишется, а существительных мужского рода 2-го склонения не пишется.

var

a: array [1..20] of integer;

i,max: integer;

begin

max: =0;

for i: =1 to 20 do

begin

if i mod 2=0 then a[i]: =random(50)+50

else  a[i]: =random(50)+150;

if a[i]> max then max: =a[i];

write(a[i]: 4);

end;

writeln;

writeln('max=',max);

end.