Регистрация
Ученик132312
24.06.2021 15:18
Информатика
Есть ответ 👍

Составить программу вычисления, w=b+(a-b): (c+1) a сумма положительный элементов массива b количество отрицательных элементов массива c произведение элементов массива с нечетными номерами полученные значения элементов a,b,c,w вывести на печать.

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

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

Bibika2005
Bibika2005
4,5(66 оценок)

const n=1000;

var k: array [1..n] of integer;

i,a,b,c: integer;

w: real;

begin

for i: =1 to n do k[i]: =random(101)-50;

a: =0;

b: =0;

c: =1;

for i: =1 to n do begin

if k[i]> 0 then a: =a+k[i];

if k[i]< 0 then b: =b+1;

if i mod 2< > 0 then c: =c*k[i];

end;

w: =b+(a-b)/(c+1);

writeln(w);

end.

Milkapilka11
Milkapilka11
4,7(28 оценок)
Program pr; var a,b,s1,s2: integer; begin writeln('введите двузначное число'); readln(a); writeln('введите трехзначное число'); readln(b); s1: =a  div10+a mod 10; s2: =b div100+b mod10+(b div10)mod10; writeln('разность суммы цифр двузначного и трехзначного чисел равна   ',s1-s2); end.

Популярно: Информатика