Задать вопрос
30 июля, 02:27

Найти сумму квадратов не отрицательных элементов и количество положительных чисел в заданном целочисленном одномерном из 15 элементов

+1
Ответы (1)
  1. 30 июля, 05:57
    0
    Program n1;

    const n=15;

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

    i, k, sum: integer;

    begin

    randomize;

    k:=0;

    sum:=0;

    writeln ('исходный массив:') ;

    for i:=1 to n do

    begin

    a[i]:=random (21) - 10;

    write (a[i],' ') ;

    if a[i]>0 then

    begin

    k:=k+1;

    sum:=sum+a[i]*a[i];

    end;

    end;

    writeln;

    writeln ('сум. кв. положительных: ', sum) ;

    writeln ('кол-во положительных: ', k) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти сумму квадратов не отрицательных элементов и количество положительных чисел в заданном целочисленном одномерном из 15 элементов ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы