Сpython 1. дан массив целых чисел от 1 до n.в данном массиве пропущены 2 числа. найдите эти числа. (исходный - id174575620201014 от Likamm 14.10.2020 17:01

Question

Информатика: Сpython 1. дан массив целых чисел от 1 до n.в данном массиве пропущены 2 числа. найдите эти числа. (исходный массив можно задать в программе) 2. найти произведение элементов массива с индексами от 3 до 7. если вы введи количество элементов массива меньше чем 7, то выдать на экран сообщение об этом.

Likamm · Accepted Answer

Var
A:array[1..12] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 12 do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
Write('Чётные элементы: ');
For i:= 1 to 12 do
    if A[i] mod 2 = 0 then Write(A[i],' ')
End.

Var A:array[1..10] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 10 do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
Write('Обработаный массив: ');
For i:= 1 to 10 do
    Begin
    if A[i] mod 10 = 0 then A[i]:=0;
    Write(A[i],' ')
    End;
End.

MOGZ ответил