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

274

386

Посмотреть ответы 2

Ответы на вопрос:

иска4578

Информатика

4,4(22 оценок)

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.

shoma22

Информатика

4,4(45 оценок)

program ii; var a, b, c, d: real; begin writeln ('введите коэффициенты а, в, с'); readln (a, b, c); if a=0 then writeln ('уравнение не квадратное') else begin d : = b*b - 4*a*c; a : = 2*a; if d< 0 then writeln ('действительных корней нет') else if d=0 then writeln ('корни равны: x1 = x2 = ', -b/a) else begin d : = sqrt(d); writeln ('x1 = ', (-b+d)/a); writeln ('x2 = ', (-b-d)/a); end; end; end.