Регистрация
gavrikov
03.04.2021 23:35
Информатика
Есть ответ 👍

Дан массив а. скопировать в массив в элементы массива а, лежащие в диапазоне от 0 до 10 включительно.

182
299
Посмотреть ответы 2

Ответы на вопрос:

lenavinnik80
lenavinnik80
4,6(6 оценок)

const

  n = 9;   //константа может быть любой

type

  mas = array[0..n] of integer;   //тип задал только для процедуры, без подпрограмм отдельный тип не нужен

procedure copy_mas(var a, b: mas);

var

  i, i1: integer;

begin

  i1 : = 0;

  for i : = 0 to n do  

    if (a[i] > = 0) and (a[i] < = 10) then  

    begin

      b[i1] : = a[i];

      i1 += 1;

    end;

end;

alexandraselivanova
alexandraselivanova
4,6(37 оценок)

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.

Популярно: Информатика