помогите пожалуйста. составте программу ввода с клавиатуры и вывода на экран массива из 7 вещественных чисел.спасибо!
5-9 класс
|
Program pr;
uses crt;
Var a:array[1..7] of real;
i:integer;
Begin
Writeln('Введите массив');
for i:=1 to 7 do
readln(a[i]);
for i:=1 to 7 do
Write(a[i],'|');
readln;
end.
============================================
Program pr;
uses crt;
Var a:array[1..10] of integer;
i:integer;
Begin
Writeln('Введите массив');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 7 do
Begin
if a[i] mod 2<>0
then
Write(a[i],'|');
end;
readln;
end.
Другие вопросы из категории
а) 218(10);
б) 808(10);
в) 176,25(10);
г) 284,25(10);
д) 253,04(10)
Читайте также
программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
(пожалуйста очень срочно надо)даю 72 бала
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива