Приветствую Вас, Гость! Регистрация RSS

<Uzh.Soft/>

Воскресенье, 19.05.2024
Главная » 2012 » Декабрь » 27 » Программа для вывода не нулевых элементов массива Паскаль
01:11
Программа для вывода не нулевых элементов массива Паскаль
Написать программу, которая вводит одномерный массив из 5 целых чисел и выводит не нулевые элементы. Перед вводом каждого элемента на экране должна появиться подсказка с его номером.После ввода каждого числа "Enter"

Решение:
  1. var i: integer;
  2.     a:array[1..5]of integer;
  3.  
  4. begin
  5.   for i:=1 to 5 do
  6.   begin
  7.     write('A[',i,']=');
  8.     readln(a[i]);
  9.   end;
  10.   for i:=1 to 5 do
  11.   begin
  12.    if a[i]<>0 then
  13.     writeln(a[i]);
  14.   end;  
  15. end.
Категория: Простые примеры | Просмотров: 1361 | Добавил: is | Теги: Паскаль, не нулевые элементы, ввод значений | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *: