Умножить все элементы, кратные 5, на пятый элемент массива

@Андреич Серёг · Регистрация: 18.11.2012

Приветствую форумчане.
Прошу вас помочь с заданием.
За ранее огромное спасибо от всей группы.
Задача:
1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Умножить все элементы, кратные 5, на пятый элемент массива.

@CodeR · 19.11.2012, 09:36

Pascal

Const n=20;
Var A:array[1..n] of integer;
    i:byte;
Begin
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
      if A[i] mod 5 = 0 then A[i]:=A[i]*A[5];
    End; 
    writeln('Полученный массив');
    For i:=1 to n do
     write(A[i]:4);
End.

@Андреич Серёг 1 / 1 / 0 Регистрация: 18.11.2012 Сообщений: 32
		1
	Умножить все элементы, кратные 5, на пятый элемент массива 19.11.2012, 06:32. Показов 1844. Ответов 1 Метки нет (Все метки) Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Умножить все элементы, кратные 5, на пятый элемент массива. 0

Опции темы

Умножить все элементы, кратные 5, на пятый элемент массива

Решение