Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями

@VERNANDOO · Регистрация: 16.03.2014

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

Здравствуйте) Пожалуйста, помогите решить две задачки!)
1)Одномерный массив из 7 элементов заполнить случайным образом числами от 5 до 35. Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями. Вывести на экран монитора первоначальный и преобразованный массивы в столбик.

@FedorBoom · 16.03.2014, 19:48

Pascal

var a: array [1..7] of integer;
    i: integer;
 begin
  randomize;
  writeln('Massive #1');
  for i:= 1 to 7 do begin
    a[i]:=random(31)+5;
    writeln(a[i]);
   end;
  writeln('Massive #2');
  for i:= 1 to 7 do begin
    if a[i]>15 then a[i]:=8;
    if a[i]=5 then a[i]:=0;
    writeln(a[i]);
   end;
  readln;
 end.

@ildwine · 16.03.2014, 19:50

Комментарий модератора

VERNANDOO, одна тема = одна задача!

@VERNANDOO 0 / 0 / 0 Регистрация: 16.03.2014 Сообщений: 17
		1
	Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями 16.03.2014, 18:52. Показов 4176. Ответов 2 Метки нет (Все метки) Здравствуйте) Пожалуйста, помогите решить две задачки!) 1)Одномерный массив из 7 элементов заполнить случайным образом числами от 5 до 35. Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями. Вывести на экран монитора первоначальный и преобразованный массивы в столбик. 0

Опции темы

Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями

Решение