помогите решить номер 8(5,6).номер 9(7-10)очень срочно - №30809252

помогите решить номер 8(5,6).номер 9(7-10)
очень срочно
- Предмет:
  Алгебра
- Автор:
  anteroevans
- 6 лет назад

Ответы 4

дак ты реши эти задания
- Автор:
  blimpiersba
- 6 лет назад
- 0
я не понимаю как это решать
- Автор:
  fletcherbolton
- 6 лет назад
- 0
реши плиз
- Автор:
  flakebowen
- 6 лет назад
- 0
Ответ на задание 8)3, 2. Ответ на задание 9)1,1
- Автор:
  chicogzwm
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

НАЙТИ Х В КВАДРАТЕ-6Х+9, ЕСЛИ Х=-6
- Предмет:
  Математика
- Автор:
  josé90
- 6 лет назад
- Ответов:
  
  3
- Смотреть
сколько будет 100%:14
- Предмет:
  Математика
- Автор:
  marcusmarshall
- 6 лет назад
- Ответов:
  
  3
- Смотреть
основные произведения Шопена
- Предмет:
  Музыка
- Автор:
  graham84
- 6 лет назад
- Ответов:
  
  3
- Смотреть
23 задание

program egsf;

var

A: array [1..3,1..7] of integer;

T:real;

Amax,Amin:real;

i,j:integer;

Begin

Write('T=');

Read(T);

For j:=1 to 7 do

for i:=1 to 3 do

begin

write('A[',i,',',j,']');

Read(A[i,j]);

end;

j:=1;

Amax:=0;

Amin:=0;

while (7>j) or (T>Amax-Amin) do

begin

begin

if (A[1,j]

Amin:=A[1,j];

if (A[2,j]

Amin:=A[2,j];

if (A[3,j]

Amin:=A[3,j];

if (A[1,j]>A[2,j]) and (A[1,j]>A[3,j]) then

Amax:=A[1,j];

if (A[2,j]>A[1,j]) and (A[2,j]>A[3,j]) then

Amax:=A[2,j];

if (A[3,j]>A[2,j]) and (A[3,j]>A[1,j]) then

Amax:=A[3,j];

end;

write( 'Amax-Amin=',Amax-Amin);

j:=j+1;

end;

end.

Может кто подсказать где ошибка?
- Предмет:
  Информатика
- Автор:
  antwancmui
- 6 лет назад
- Ответов:
  
  1
- Смотреть

How much to ban the user?

1 hour 1 day 100 years