Регистрация
безумнаявкедах
19.02.2021 06:33
Информатика
Есть ответ 👍

Написать программу посчитывающую в массиве сумму элементов меньших 0 ,их количество и средее значение

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

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

marmeladkina
marmeladkina
4,6(32 оценок)
Уменя получилась такая программка: uses crt; const n=15; type vec=array [1..n] of integer ; var i, sumotr, colotr: integer;       a: vec ; begin clrscr; randomize; sumotr: =0; colotr: =0; writeln (' massiv a: '); for i: =1 to n do       begin             a[i]: =-10+random(20);             if a[i]< 0  then                   begin                         sumotr: =sumotr+a[i];                         colotr: =colotr+1;                   end;             write (a[i]: 4);       end; writeln; writeln('colotr = ', colotr); writeln('sumotr = ', sumotr); writeln('sredotr = ', sumotr/colotr: 4: 2); readln; end.
миша29112000
миша29112000
4,4(54 оценок)
1: var       count,i: integer;       a: array [1..30] of integer; begin for i: =1 to 30 do begin       a[i]: = -100 + random(206);       writeln('a[',i,'] = ', a[i]); end; for i: =1 to 30 do       if(a[i] mod 2 = 0) then inc(count); writeln; writeln; writeln('кол-во четных элементов: ', count); end. 2 : const       n = 30; var       count,i: integer;       a: array [1..n] of integer; begin for i: =1 to n do begin       a[i]: = -15 + random(22);       writeln('a[',i,'] = ', a[i]); end; for i: =1 to 30 do       if(a[i] mod 3 = 0) then a[i]: =-a[i]; writeln; writeln; for i: =1 to n do       writeln('a[',i,'] = ', a[i]); end.

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