AdelkaTiVi
25.02.2020 02:05

Нужно выполнить всё в паскале. Для каждого пункта разные программы.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
bossmakswell
02.12.2020 03:17

1.

program MinElement;

var

X: array[1..30] of Integer;

i, min: integer;

begin

randomize;

for i := 1 to 30 do

X[i] := random(100);

min := X[1];

for i := 1 to 30 do

if X[i] < min then

min := X[i];

writeln('Минимальное число: ', min);

write('Все элементы:');

for i := 1 to 30 do

write(' ', X[i]);

readln;

end.

2.

program Summa;

var

X: array[1..20] of Integer;

i, sum: integer;

begin

randomize;

for i := 1 to 20 do

X[i] := random(100);

sum := 0;

for i := 1 to 20 do

sum := sum + X[i];  

writeln('Сумма всех чисел: ', sum);

write('Все элементы:');

for i := 1 to 20 do

write(' ', X[i]);

readln;

end.

Всё правильно и проверено лично!

0,0(0 оценок)
Ответ:
маринька
17.10.2021 22:48

1)

#include <iostream>

using namespace std;

int main() {

int n,m;

cout << "Enter number n: ";

cin >> n;

cout << "Enter number m: ";

cin >> m;

for (int i = n; i <= m; i++) {

 if (i % 3 == 0) cout << i << endl;

}

}

2)

#include <iostream>

using namespace std;

int main() {

int n, m, sum=0;

cout << "Enter number n: ";

cin >> n;

cout << "Enter number m: ";

cin >> m;

for (int i = n; i <= m; i++) {

 if (i % 2 == 0) sum+=i;

}

cout << "Result: " << sum;

}

3)

#include <iostream>

using namespace std;

int main() {

long n,m, max=0;

cout << "Enter number: ";

cin >> n;

m = n;

 for (int i = 10; n>0;) {

 if (n % i > max)  

  max = n % i;

 n = n / i;

}

 cout << "Result: " << max;

}

Объяснение:

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота