Задать вопрос
20 декабря, 03:14

1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран.

2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран. Найти количество элементов массива, делящихся на 3 без остатка.

3) Заполнить массив размером N квадратами целых чисел последовательно от 12 до N2. Вывести его на экран. Найти среднее арифметическое элементов массива и вывести его на экран.

+3
Ответы (1)
  1. 20 декабря, 04:16
    0
    Program gt;

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

    i, n, s:integer;

    begin

    read (n) ;

    for i:=1 to n do

    begin

    a[i]:=i;

    write (a[i],' ') ;

    end;

    writeln;

    s: = ((1+n) * n) div 2;

    writeln (s) ;

    end.

    2)

    program gt;

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

    i, n, s:integer;

    begin

    read (n) ;

    s:=0;

    for i:=n downto 1 do

    begin

    a[i]:=i;

    write (a[i],' ') ;

    if (i mod 3=0) then s:=s+1;

    end;

    writeln;

    writeln (s) ;

    end.

    3)

    непонятно условие

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