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

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

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

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

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

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

+1
Ответы (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 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы