Нужна помощь!! 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.


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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт