Составьте программку, которая наполняет массив a[1..20] случайными целыми числами в диапазоне

Question

Составьте программку, которая наполняет массив a[1..20] случайными целыми числами в диапазоне

Составьте программу, которая наполняет массив a[1..20] случайными целыми числами в спектре от 1 до 10 и находит среднее арифметическое частей с четными значениями и нечетными индексами

Задать свой вопрос

Славик Пырхин
Информатика
2019-04-10 07:47:59
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

выпишите слово в котором правописание суффикса определяется правилом.в суффиксе полной формы

3 класс поменять предложение Тих и ясен свод небес, употребить союзы

10 слов на ё по правилу о е ё посли шипящих

Выпиши из предложений слова в которых гулкие согласные произносятся как глухие.Напиши

СH (тройная связь) С - С - СH3

Однокоренные слова к слову бурый

присказки о воле пословицы о воле

Составьте таблицу quot;составные доли воздухаquot; состоящую из колонок quot;постоянныеquot;,

Найдите множество значений функции у=2sin3x-3

7224:8 столбиком плиз

Любовь Хосидова · Answer 1 · 2019-04-10 07:56:36+3:00

Program CrazyCoder;
var
a:array[1..20] of integer;
i,n,c:integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(10)+1;
write(a[i],' ');
if i mod 2 = 1 then
if a[i] mod 2 = 0 then
begin
c:=c+a[i];
n:=n+i;
end;
end;
writeln;
writeln('Среднее арифметическое: ', c/n);
end.

Антон Корабышев · Answer 2 · 2019-04-10 08:04:01+3:00

Составьте программу,, которая наполняет массив а[1..20] случайными целыми числами в спектре от 1 до 30 и выводит наэкран элементы , значения которых являются четными и кратными3.Program Task;
Var a: Array [1..20] of Integer;
i: Integer;
Begin
For i := 1 To 20 Do
Begin
a[i] := Random(30) + 1;
If a[i] Mod 3 = 0 Then
Write(a[i], ' ');
End;
ReadLn;
End.

О проекте

Составьте программку, которая наполняет массив a[1..20] случайными целыми числами в диапазоне

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