Задать вопрос
1 сентября, 23:14

Задача 7.

вводится массив целых чисел размером в 10 ячеек случайными целыми цифрами в диапазоне от 1 до 100. Найти сумму элементов массива и вывести на монитор

Задача 8.

вводится массив целых чисел размером в 10 ячеек случайными целыми цифрами в диапазоне от 1 до 100. Упорядочить массив по возрастанию и вывести на монитор заданный массив и упорядоченный.

+3
Ответы (1)
  1. 1 сентября, 23:41
    0
    1)

    Program n1;

    const n=10;

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

    i, sum: integer;

    begin

    randomize;

    sum:=0;

    for i:=1 to n do a[i]:=random (100) + 1;

    for i:=1 to n do sum:=sum+a[i];

    writeln ('сумма: ', sum) ;

    end.

    2)

    Program n2;

    const n=10;

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

    i, sum, j, temp: integer;

    begin

    randomize;

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

    for i:=1 to n do

    begin

    a[i]:=random (100) + 1;

    write (a[i],' ') ;

    end;

    writeln;

    writeln ('полученный массив: ') ;

    for i:=1 to n do

    for j:=i to n do

    if a[j]
    begin

    temp:=a[i];

    a[i]:=a[j];

    a[j]:=temp

    end;

    for i:=1 to n do write (a[i],' ') ;

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