Регистрация
Alishan060606
24.12.2021 18:10
Информатика
Есть ответ 👍

Напишите две задачи на языке Pascal ABC: 1.Дан массив из 12 целых чисел, заданных случайным образом на [-40;40]. Нечетные элементы массива уменьшить на 2. Вывести изменившийся массив на экран.
2. Дан массив из 10 целых чисел, заданных с клавиатуры. Элементы массива равные своему номеру обнулить. Вывести изменившийся массив на экран.

202
328
Посмотреть ответы 2

Ответы на вопрос:

ksusha290
ksusha290
4,4(69 оценок)

Объяснение:

var

mass : array [1..100] of integer;

i, j : integer;

begin

randomize;

for i := 1 to 12 do

mass[i] := random(40) - 40;

for j := 1 to 12 do

if mass[j] mod 2 = 0 then

mass[j] := 0;

for i := 1 to 12 do

write(mass[i]);

end.

2

var

mass : array [1..100] of integer;

i, j : integer;

begin

for i := 1 to 10 do

read(mass[i]);

for j := 1 to 10 do

if mass[j] = j then

mass[j] -= 2;

for i := 1 to 10 do

write(mass[i]);

end.

ррпарпоа1
ррпарпоа1
4,6(52 оценок)

Відповідь:

Пояснення:

1б

2г

3а

4в

5в

6б

7А1:В4;С1:Е4

8С2:D4

9 Алгоритм-це набір інструкцій, які описують порядок дій виконавця, щоб досягти результату розв'язання задачі за скінченну кількість дій

10 Алгоритм з розгалуженням-це коли при виконанні певної умови виконується одна дія якщо ж умова не виконуєть виконується друга умова

11Цикл- це повторення певних дій певну кількість раз, доки доти виконується певна умова

12 прийти на кухню

взяти чайник

відкрити кран

налити воду в чайник

поставити чайник на плиту

(бери це як приклад)

Популярно: Информатика