Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a: array [1..10] of integer;
s,i,c,b: integer;
begin
read(c,b,n);
randomize;
for i : = 1 to n do
a[i]: = random(b) -c+1;
for i: = 1 to n do
if i mod 2 = 0 then s: =s+1;
writeln(s);
end.
в результате выполнения первого цикла
for i: =1 tо n do a[i] : = i
в массиве будут находится числа от 1 до 10 по возрастанию
j: =1
затем 9 раз сравнивается предыдущий элемент с последующим и если последующий больше предыдущего то j увеличивается на 1
так как в массиве каждый последующий элемент больше предыдущего то j увеличится на 9
значит j станет равно 10
а)1,3,6,4,11,5,16,6
б)9,7,10,8,11,9,12,10
в)3,2,1,6,5,4,9,8,7
если паскаль, то вот :
program altzie;
var h: real;
repeat write('введите h ');
readln(a); if a< =0then writeln('ошибка! значение h не может быть нулевым или отрицательным. повторите ввод.');
until h> 0;
writeln('площадь боковой поверхности куба = ', (6*h*h));
readln; end.
Популярные вопросы