1.Составьте программку которая наполняет массив A[1..30] случайными целыми числами в спектре
1.Составьте программку которая наполняет массив A[1..30] случайными целыми числами в диапазоне от -15 до 30 и вычисляет творенье положительных частей массива. 2. Составьте программку которая наполняет массив A[1..40] случайными целыми числами в спектре от -20 до 10 и обретает количество частей массива кратным 3 3. Составьте программку которая заполняет массив A[1..40] случайными целыми числами в спектре от -30 до 30 и обретает среднее арифметическое отрицательных частей массива
Задать свой вопрос1 ответ
Геннадий Аскери
//Pascal
//1)
var
A: array [1..30] of integer;
i: byte; mult: double;
begin
mult := 1;
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 30 do
begin
A[i] := random(46)-15;
if A[i] gt; 0 then mult := mult * A[i];
write(A[i], ' ');
end;
writeln;
writeln('Творение положительных частей = ', mult);
end.
//----------------------------------------------------------------
//2)
var
A: array [1..40] of integer;
i: byte; count: byte;
begin
count := 0;
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 40 do
begin
A[i] := random(31)-20;
if A[i] mod 3 = 0 then count := count + 1;
write(A[i], ' ');
end;
writeln;
writeln('Количество частей кратных трем = ', count);
end.
//----------------------------------------------------------------
//3)
var
A: array [1..40] of integer;
i: byte; count: byte; sum: integer;
begin
count := 0; sum := 0;
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 40 do
begin
A[i] := random(61)-30;
if A[i] lt; 0 then
begin
count := count + 1;
sum := sum + A[i];
end;
write(A[i], ' ');
end;
writeln;
writeln('Среднее арифметическое отрицательных эл. =',(sum/count):4:4);
end.
//----------------------------------------------------------------
//1)
var
A: array [1..30] of integer;
i: byte; mult: double;
begin
mult := 1;
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 30 do
begin
A[i] := random(46)-15;
if A[i] gt; 0 then mult := mult * A[i];
write(A[i], ' ');
end;
writeln;
writeln('Творение положительных частей = ', mult);
end.
//----------------------------------------------------------------
//2)
var
A: array [1..40] of integer;
i: byte; count: byte;
begin
count := 0;
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 40 do
begin
A[i] := random(31)-20;
if A[i] mod 3 = 0 then count := count + 1;
write(A[i], ' ');
end;
writeln;
writeln('Количество частей кратных трем = ', count);
end.
//----------------------------------------------------------------
//3)
var
A: array [1..40] of integer;
i: byte; count: byte; sum: integer;
begin
count := 0; sum := 0;
randomize;
writeln('Сгенерированный массив.');
for i := 1 to 40 do
begin
A[i] := random(61)-30;
if A[i] lt; 0 then
begin
count := count + 1;
sum := sum + A[i];
end;
write(A[i], ' ');
end;
writeln;
writeln('Среднее арифметическое отрицательных эл. =',(sum/count):4:4);
end.
//----------------------------------------------------------------
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов