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

@Eikon · Регистрация: 30.10.2012

Author24 — интернет-сервис помощи студентам

@CodeR · 01.11.2012, 20:14

Pascal

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.

Добавлено через 1 минуту
Называйте тему информативно, чтобы название отражало суть проблемы!

@Eikon 1 / 1 / 1 Регистрация: 30.10.2012 Сообщений: 10
		1
	Дан массив целых чисел все элементы оканчивающиеся цифрой 4,уменьшить на 2 01.11.2012, 20:05. Показов 1479. Ответов 1 Метки нет (Все метки) Дан массив целых чисел все элементы оканчивающиеся цифрой 4,уменьшить на 2 0

	01.11.2012, 20:14

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

Решение