Вводится 15 чисел. Определите среди них целые числа. На программе Pascal ABCNET как сделать, подскажите пожалуйста!!=)Буду весьма благодарен!!))
5-9 класс
|
MeriKoch
23 янв. 2014 г., 11:15:15 (10 лет назад)
SaШка
23 янв. 2014 г., 13:45:24 (10 лет назад)
program abcnet;
var a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
read(a[i]);
for i:=1 to 15 do
if a[i]>0 then write(a[i]:3);
end.
Ответить
Другие вопросы из категории
Читайте также
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Помогите по инфе с заданиями на циклы:1. Вводятся 15 чисел, сколько из них удовлетворяют условиям нечетное и кратно 72. Вводятся 10
чисел, найдите их сумму
1) составьте программу заполнения элементов массива [1..10 ] случайнымии целыми числами на отрезке [ 0;35 ] и вывода на экран нечетных элементов и
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива
1.Дано целое число составить программу которая определяет оканчивающие данное число цифрой семь.
2.Дано 2х значное число составить программу с помощью которой можно отпределить входит ли в это число цифра шесть.
Вы находитесь на странице вопроса "Вводится 15 чисел. Определите среди них целые числа. На программе Pascal ABCNET как сделать, подскажите пожалуйста!!=)Буду весьма благодарен!!))", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.