profile
Опубликовано 6 лет назад по предмету Информатика от Кот222

дан массив целых чисел. все элементы,оканчивающиеся цифрой 4,уменьшить вдвое на языке с

  1. Ответ
    Ответ дан Donya97

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17 Var A:array[1..100] of integer;
    i,n:byte;
    Begin
    write('Введите размерность: ');readln(n);
    For i:=1 to n do
    Begin
    write('A[',i,'] = ');
    readln(A[i]);
    End;
    writeln('Преобразованный');
    For i:=1 to n do
    Begin
    if A[i] mod 10 = 4 then A[i]:=A[i]-2;
    write(A[i]:4);
    End;
    readln;
    End.

Самые новые вопросы