ТутРешу.Ру

Разработать блок-схему и программу…

Задание:

Разработать блок-схему и программу, которая запрашивает массив из N целых чисел, выводит номера отрицательных элементов и сами этиэлементы) Вот эти числа: а) 3,5,-2,3,-2,0,-6,-8,1; б) -1,-2,-3,-4,0,-1,2,3)

Решение:

1) Программа для Pascal ABC: program massiv; uses CRT; vara: array [1… 200] of integer; sum,i,n,d: integer; beginwriteln ('vvedite kolitestvo chisel massiva (N) '); readln (n); randomize; clrscr; for i: =1 to n dobegina[i]: =random (100000); writeln (a[i]) end; for i: =1 to n dobegind: =a[i] mod 7; if d=0 thensum: =sum+a[i]end; writeln ('summa chisel kratnix 7=',sum) end.




Знаете другой ответ?

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