Задать вопрос
8 января, 23:44

Помогите по информатике paskal;

Заполнить массив натуральными числами от 5 до 15, все четные числа разделить на два и вывести на экран сумму элементов.

+2
Ответы (1)
  1. 9 января, 00:20
    0
    program HelloWorld;

    const N = 10;

    var m:array [1 ... N] of real;

    var i: integer;

    var j: integer;

    var summ: real;

    begin

    summ:=0;

    for i : = 1 to N do

    begin

    j: = 5 + random (10) ;

    m[i]:=j;

    if j mod 2 = 0 then m[i]:=m[i]/2;

    summ:=summ+m[i];

    end;

    write (summ:10:0) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите по информатике paskal; Заполнить массив натуральными числами от 5 до 15, все четные числа разделить на два и вывести на экран ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы