1)составьте программу ввода элементов массива а[1..8 ] с клавиатуры и вывода на экран элементов с отрицательными значениями; 2)составьте
5-9 класс
|
программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
program z1;
var
a:array [1..8] of integer;
i: integer;
begin
for i:=1 to 8 do
read(a[i]);
writeln;
for i:=1 to 8 do
if a[i] < 0
then
write (a[i]);
end.
program z2;
var
b:array [1..6] of integer;
i: integer;
begin
for i:=1 to 8 do
read(b[i]);
writeln;
for i:=1 to 8 do
if b[i] > 0
then
write (b[i]);
end.
Другие вопросы из категории
жёсткоао диска?Устройство с помощью которого можно вывести на бумагу тексты и рисунки?
Читайте также
1. Составьте программу ввода элементов массива h [1..8] с клавиатуры и вывода на экран элементов с отрицательными значениями.
2.Составьте программу, которая заполняет массив h [1..10] случайными целыми числами в диапазоне от -10 до 10 и находит количество элементов с отрицательными значениями.
3. Составьте программу, которая заполняет массив h [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечётными значениями и количество элементов с нечётными значениями.
5. Составьте программу, которая заполняет массив h [1..20] случайными целыми числами в диапазоне от 1 до 20 и находит среднее арифметическое элементов кратных трём и чётными индексами.
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.