1. Информатика
  2. Нужна 1. заполнить массив

Нужна 1. заполнить массив из 13 целых элементов случайными числами из диапазона от 5 до 15. обеспечить вывод исходного массива на экран. подсчитать произведение четных элементов массива. 2. дан массив из 7 вещественных элементов. обеспечить заполнение массива с клавиатуры. преобразовать массив: всем положительным элементам присвоить значение 100. обеспечить вывод получившегося массива на экран. 3. дан массив из 10 вещественных элементов. обеспечить заполнение массива с клавиатуры. подсчитать сумму отрицательных элементов массива, стоящих на четных местах.

ladyalinaELIZ ladyalinaELIZ    1   30.08.2019 21:20    0

Ответы
kolyafedosov kolyafedosov  06.10.2020 05:47
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]>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. заполнить массив из 13 целых элементов случайными числами из диапазона от 5 до 15. обеспечи
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
tankist09056 tankist09056  04.04.2021 11:43
Упражнение 15. Применение неразлинованной таблицы для размещения текста в документах. Создание бланка. В верхней части страницы вставьте таблицу, состоящую из трех столбцов...
diamiss45 diamiss45  04.04.2021 11:44
Придумайте по 2 истинных и 2 ложных составных условия для заданных переменных a=9, b=-17, c=16...
sofiamytsak sofiamytsak  25.05.2019 22:10
Подсчитать сумму чисел кратных 7 в промежутке от 200 до300....
kall4 kall4  25.05.2019 22:10
Какие проблемы могут возникнуть при использовании нелицензионного программного продукта...
Eliseevka12 Eliseevka12  30.08.2019 16:20
Статья, набрання на компьютере, содержит 16 стр, на каждой стр. 35 строк, в каждой строке 64 символа. опред. инф. объем статьи в кодировке windows-1251, в которой каждый символ...
Luxky Luxky  07.06.2019 12:10
Укаждого человека есть имя. есть оно и у файлов. укажите имя, которое необходимо исправить: а) новый .txt; b) а будет это так.mp3; c) морской мир. jpeg; d) сочинение.doc....
joseska228 joseska228  16.02.2022 05:15
Задание No3. Дано положительное целое число N. Создайте блок-схе- му, которая находит наименьшую из цифр этого числа. Напишите программный код задачи....
kkatya3082 kkatya3082  15.05.2020 16:16
132. На Оста- 9 пути. Пока же на полустанке одноколейной железной дороги новился поезд в составе тепловоза и трёх вагонов, до- ставивший бригаду рабочих для строительства...
gost226 gost226  15.05.2020 16:16
Для какого из уразаных чисел сложно выражение (х 6) или не (х =4) а)7 б)6 в)5 г)4...
ShHanddW ShHanddW  15.05.2020 16:16
1. Наибольший объем информации человек получает при а)осязания; б)слуха; в)обоняния; г)зрения; д)вкусовых рецепторов. 2.Примером текстовой информации может служить: а)музыкальная...

Популярные вопросы