Регистрация
nayahoff123
01.04.2021 18:53
Информатика
Есть ответ 👍

Определите тип данных: a)а=4,53 б)b=356

262
355
Посмотреть ответы 2

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

TyTToŪLLlkoJlbHuK
TyTToŪLLlkoJlbHuK
4,6(69 оценок)
А) double b) integer или просто int
ВероничкаКлубничка21
ВероничкаКлубничка21
4,4(46 оценок)

program one;

type tintmassiv = array of real;

var a,b,c,x,y: tintmassiv; n,i: integer;

begin

writeln('введите длину массивов(n)');

readln(n);

setlength(a,n); // создаем динамические массивы длины n

setlength(b,n);

setlength(c,n);

setlength(x,n);

setlength(y,n);

for i : = 0   to n-1 do  

  begin

  writeln('введите ',i+1, ' массива a');

  readln(a[i]);  

  writeln('введите ',i+1, ' массива b');

  readln(b[i]);  

  writeln('введите ',i+1, ' массива c');

  readln(c[i]);

  end;

for i : = 0 to n-1 do

  begin

  x[i] : =   min(a[i],b[i]) / 2;

  y[i] : =   min(a[i],c[i]) / 2;

  end;

for i : = 0 to n-1 do

  begin

  writeln('x[',i,']=',x[i]);

  writeln('y[',i,']=',y[i]);

  end;

a : = nil; //освобождаем память

c : = nil;

b : = nil;

x : = nil;

y : = nil;

end.

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