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

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

Все категории

Марианна555

4 года назад

6

Создайте программу на паскале. Программа вводит случайный массив из 10 чисел и считает сколько элементов 1)меньше 50, 2)сумму эл

ементов, которые больше 20

Информатика

1 ответ:

Gerbert4 года назад

0 0

Ответ:

Объяснение:

вот оба варианта)

Читайте также

Дан массив A целых чисел, содержащий 30 элементов. Вычислить и вывести количество и сумму тех элементов, которые делятся на 5 и

Shuuks [50]

Ответ:

Объяснение:

using System;

public class Program

{

public static void Main()

{

int[] A = new int[30];

var rand = new Random();

for(int i = 0; i < 30; i ++) // Заполняем в цикле массив случайными числами от 0 до 100

A[i] = rand.Next(0, 100);

int kolichestvo, summa;

kolichestvo = 0;

summa = 0;

for(int i = 0; i < 30; i ++) //цикл по элементам массива

{

if((A[i] % 5) == 0)// операция "%" - остаток от деления, если = 0 значит поделилось нацело, если не равно нулю, значит поделилось с остатком

{

if((A[i] % 3) != 0)

{

kolichestvo = kolichestvo + 1;

summa = summa + A[i];

}

}

}

Console.Write("Сумма: ");

Console.Write(summa);

Console.Write(" Количество: ");

Console.Write(kolichestvo);

}

}

0 0

4 года назад

Исполнитель Кулинар предназначен для обжаривания лепешек. Лепешка считается готовой, если каждая ее сторона жарилась 1 минуту. С

Алекс666

<em>а) Поместить2 </em>
<em>Ждать</em>
<em>Перевернуть2</em>
<em>Ждать</em>
<em>Убрать2</em>
<em>Поместить2</em>
<em>Ждать</em>
<em>Перевернуть2</em>
<em>Ждать</em>
<em>Урать2</em>
<u>б) Поместить2</u>
<u>Ждать</u>
<u>Перевернуть2</u>
<u>Ждать</u>
<u>Убрать2</u>
<u>Поместить2</u>
<u>Ждать</u>
<u>Убрать1</u>
<u>Поместить1</u>
<u>Ждать</u>
<u>Убрать1</u>
<u>Поместить1</u>
<u>Ждать</u>
<u>Убрать2</u>

0 0

4 года назад

Найти значени выражение 220div 10mod 3 = (16 mod 6)/(2 div 1) =

Vitaliya-p [261]

1) 1
2) 2

(20 СИМВОЛОВ))))

0 0

4 года назад

Составить циклический алгоритм, который находит произведение чисел: 1, 8, 27, 64...N.

irunka-mis [24]

Var i,n:integer;
begin
read(n);
for i := 1 to n do
writeln(i*i*i);
end.

0 0

2 года назад

1. Найти произведение положительных элементов массива X(9). 2. Заменить элементы, значения которых равны числу 4, числом -4. Дан

Wowcheck

Pascal abc.................

0 0

4 года назад