Регистрация
BlasterGloGang
12.09.2021 20:47
Информатика
Есть ответ 👍

Составить программу которая создаёт массив случайных чисел в диапазоне (-10,10) . найти сумму положительных и сумму отрицательных элементов массива

285
401
Посмотреть ответы 3

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

efimovvvilyha
efimovvvilyha
4,5(72 оценок)
Const   nn=100; var   i,n,sn,sp: integer;   a: array[1..nn] of integer; begin   write('n = '); read(n);   randomize;   sn: =0; sp: =0;   for i: =1 to n do begin       a[i]: =random(21)-10;       write(a[i],' ');       if a[i]> 0 then sp: =sp+a[i]       else           if a[i]< 0 then sn: =sn+a[i]       end;   writeln;   writeln('сумма отрицательных ',sn,', сумма положительных ',sp) end. пример n = 13 8 4 10 6 -2 2 -9 -9 6 3 2 4 -7 сумма отрицательных -27, сумма положительных 45
FuNTowNToPPlay4ik
FuNTowNToPPlay4ik
4,4(86 оценок)
// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(10,-10,10); a.println; var (sum1,sum2): = (a.where(t -> t > 0).sum,a.where(t -> t < 0).sum); writeln(sum1, ' ', sum2); end. пример: 5 -2 -3 6 -7 -8 -7 7 -1 4 22 -28
mashakesea03
mashakesea03
4,7(52 оценок)
Строчные и прописные латинские буквы: a b c d e f g h i j k l m n o p q r s t u v w x y z a b c d e f g h i j k l m n o p q r s t u v w x y z пробел подчеркивание: _ арабские цифры: 0 1 2 3 4 5 6 7 8 9 знаки операций: + - * / = < > < > < = > = : = @ ограничители: . , ' ( ) [ ] (. ) { } (* *) .. : ; спецификаторы: ^ # $ служебные (зарезервированные) слова: absolute exports library set assembler external mod shl and far name shr array file nil string asm for near then assembler forward not to begin function object type case goto of unit const if or until constructor implementation packed uses destructor in private var div index procedure virtual do inherited program while downto inline public with else interface record xor end interrupt repeat export label resident подробнее - на -

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