Задать вопрос
16 июля, 06:26

на языке паскаль

1) дан массив натуральных чисел найдите сумму всех его элементов

2) вычислить количество положительных чисел среди 10 элементов вещественного массива

3) заполнить массив из n целых чисел. выяснить какое число встречается раньше-положительное или отрицательное.

4) в целочисленном массиве есть отрицательные элементы. вывести номера этих элементов

+5
Ответы (1)
  1. 16 июля, 09:46
    0
    1.

    var

    i, n, s:integer;

    a:array [1 ... 100] of integer;

    begin

    write ('Введите количество элементов массива: ') ;

    readln (n) ;

    s:=0;

    for i:=1 to n do

    begin

    readln (a[i]) ;

    s:=s+a[i];

    end;

    writeln ('Сумма элементов массива = ', s) ;

    end.

    2.

    var

    i, n, k:integer;

    a:array [1 ... 10] of real;

    begin

    k:=0;

    for i:=1 to 10 do

    begin

    readln (a[i]) ;

    if a[i]>0 then k:=k+1;

    end;

    writeln ('Количество положительных элементов массива = ', k) ;

    end.

    3.

    var

    i, n:integer;

    a:array [1 ... 100] of integer;

    begin

    write ('Введите количество элементов массива: ') ;

    readln (n) ;

    for i:=1 to n do

    readln (a[i]) ;

    if a[1]>0 then writeln ('Раньше встречается положительное число')

    else writeln ('Раньше встречается отрицательное число')

    end.

    4.

    var

    i, n:integer;

    a:array [1 ... 100] of integer;

    begin

    write ('Введите количество элементов массива: ') ;

    readln (n) ;

    for i:=1 to n do

    readln (a[i]) ;

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

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «на языке паскаль 1) дан массив натуральных чисел найдите сумму всех его элементов 2) вычислить количество положительных чисел среди 10 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) дан массив натуральных чисел найдите сумму всех его элементов 2) вычислить количество положительных чисел среди 10 элементов вещественного массива 3) заполнить массив из n целых чисел.
Ответы (1)
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)
Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число.
Ответы (1)
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)
Во имя радостных мессий, помогите хоть одну задачку. Не шарю ( Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести произведение всех элементов
Ответы (1)