seymurxalafov05
?>

Написать блок-схему к программе: uses crt; const n=40; var a: array[1..n] of integer; i: integer; pr: longint; begin randomize; pr: =1; for i: =1 to n do begin a[i]: =random(300); write(a[i]: 4); if (i mod 2< > 0) and (a[i] mod 3=0) then pr: =pr*a[i]; end; writeln(pr); end.

Информатика

Ответы

ulechkaevseeva
Вот   твой блок-схема программы
Alekseevich_Viktorovna
Предположим, что последовательность же задана, то есть вводить ее мы не будем. последовательность представляет собой массив чисел а. n: =1;   k: =0; for i: =1 to 100 do if (a[i]< 0) then k: =k+1; проверяем наличие отрицательных if (k=0) then writeln("отрицательных нет.") else begin for i: =1 to 100 do if (a[i]< 0) then n: =a[i]; находим хотя бы один отрицательный for i: =1 to 100 do if ((a[i]< 0) and (a[i]> n) then n: =a[i]; находим наибольший отрицательный writeln("наибольшее из отрицательных чисел данной последовательности - ",n); end; end.
spz03
HTML предлагает шесть заголовков разного уровня, которые показывают относительную важность секции, расположенной после заголовка. Так, тег представляет собой наиболее важный заголовок первого уровня, а тег служит для обозначения заголовка шестого уровня и является наименее значительным. По умолчанию, заголовок первого уровня отображается самым крупным шрифтом жирного начертания, заголовки последующего уровня по размеру меньше. Теги ,..., относятся к блочным элементам, они всегда начинаются с новой строки, а после них другие элементы отображаются на следующей строке. Кроме того, перед заголовком и после него добавляется пустое пространство.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать блок-схему к программе: uses crt; const n=40; var a: array[1..n] of integer; i: integer; pr: longint; begin randomize; pr: =1; for i: =1 to n do begin a[i]: =random(300); write(a[i]: 4); if (i mod 2< > 0) and (a[i] mod 3=0) then pr: =pr*a[i]; end; writeln(pr); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

basil69
katekn6032
спец Михасов
joini09
Сергей_Комарова899
Klyucharyova
sklad
kuzinnv1968
Gera8061
sochi-expert
eurostom
kuz-vlad21
bulenbeiser
admiralbany
bksenia9775