Задать вопрос
6 октября, 17:27

Составьте программу ввода элементов массива b[1 ... 6] с клавиатуры и вывода на экран элементов с положительными значениями.

+1
Ответы (1)
  1. 6 октября, 18:48
    0
    Var A:array[1 ... 100] of Integer;

    i, N:integer;

    begin

    Readln (N) ;

    For i:=1 to N do

    Readln (A[i]) ;

    For i:=1 to N do

    If A[i]>=0 then

    Write (A[i],' ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составьте программу ввода элементов массива b[1 ... 6] с клавиатуры и вывода на экран элементов с положительными значениями. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы