Предмет: Другие предметы, автор: Аноним

Даю 20 баллов помогите СРОЧНО!!!

Приложения:

Ответы

Автор ответа: nadkabest

0

Извини не знаю(((( Но очень хотелось помогти потому што я люблю помогать людям)

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Математика, автор: tnazerke1001

3,3+3,3=? Вот-вот вам

5 лет назад

Предмет: Физика, автор: sevincagarahimova

Измерить температуру воздуха в морозный день можно

5 лет назад

Предмет: Математика, автор: grigiranv444

Вычислите: 0,15*2 - 0,17

5 лет назад

Предмет: Информатика, автор: daannick

В программе описан одномерный массив следующим образом:
A:array [1..17] of integer;
Что будет выведено на экран после выполнения процедуры Massiv, если в исходном массиве записаны следующие числа?
6 18 33 12 29 16 13 33 24 24 17 6 22 26 33 31 4

Procedure Massiv;
Var i, m1, m2: integer;
Begin
m1 := A[1]; m2 := A[1];
For i := 1 To 17 do begin
If A[i] Mod 2 = 0 Then If m1 < A[i] Then m1 := A[i];
If A[i] Mod 3 = 0 Then If m2 > A[i] Then m2 := A[i];
End;
Writeln(m1:4, m2:4);
End;

8 лет назад

Предмет: Информатика, автор: daannick

В программе имеются следующие описания:
Type
Person = record
Fio : string [20];
Ball : array [1..4] of 3..5;
x : Byte;
End;
Var
a : array [1..10] of Person;
Отметьте неправильно записанные операторы присваивания.

a.Fio := 'Иванов';
a[6].Ball[3]:=4;
a[3].x:=34;
a.Ball[4]:=5;
a[2].Ball[7]:=5;
a.x:=a.x+2.

8 лет назад