Нужна помощь!! 1. Заполнить массив из 13 целых частей случайными числами
Нужна помощь!! 1. Заполнить массив из 13 целых частей случайными числами из спектра от 5 до 15. Обеспечить вывод исходного массива на экран. Подсчитать творение четных элементов массива. 2. Дан массив из 7 вещественных элементов. Обеспечить наполнение массива с клавиатуры. Конвертировать массив: всем положительным элементам присвоить значение 100. Обеспечить вывод получившегося массива на экран. 3. Дан массив из 10 вещественных частей. Обеспечить заполнение массива с клавиатуры. Подсчитать сумму отрицательных частей массива, стоящих на четных местах.
Задать свой вопрос1 ответ
Геннадий Шалатовский
2
var a:array [1..7] of real ;
i:integer;
begin
write ('заполни массив');
for i:=1 to 7 do begin
readln(a[i]);
if a[i]gt;0 then a[i]:=100;
end;
writeln ('выведи новый массив');
for i:=1 to 7 do
writeln ( a[i]);
end.
3
var a:array [1..10] of real;
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do begin
readln(a[i]);
if i mod 2=0 then s:=s+a[i];
end;
write ('сумма чисел=' s);
end.
Кирилл Гиниятулин
1-ая задачка
Олеся Андреева
var a: array [1..13] of integer; i,p: integer;
Аймасов
Даниил
begin
Анастасия
p:=1;
Курасбедиани
Вероника
randomize; write (' формируем массив');
Антонина Лумцова
for i:=1 to 13 do begin
Витька Желобнюк
a[i]:= 5+random (10);
Геннадий Дешутин
if a[i] mod 2=0 then p:=p*a[i]; end; write ('p='p); end.
Надежда Рошняк
1-ая задачка
Боря Вильмус
var a: array [1..13] of integer; i,p: integer;
Четкина
Анастасия
begin
Катюша Джаниашвили
p:=1;
Игорь
randomize; write (' формируем массив');
Юрий Катречко
for i:=1 to 13 do begin
Леонид
a[i]:= 5+random (10);
Людмила Пташенко
if a[i] mod 2=0 then p:=p*a[i]; end; write ('p='p); end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Облако тегов