Исправьте ошибки: Program massiv;
Var a:array(-10..10) of integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
2.

Question

Информатика: Исправьте ошибки: Program massiv; Var a:array(-10..10) of integer; Begin For i:=1 to 20 Do Read(a[i]); For i:=1 to 20 Do a[i]:=a[i]/10; For i:=1 to 20 Do Write(a[i]) End. 2.

Soul9in9the9dream · Accepted Answer

a[1] = -4 a[2] = -1 a[3] = 4 a[4] = 11 a[5] = 20 a[6] = 31 a[7] = 44 a[8] = 59 a[9] = 76 a[10] = 95

Объяснение:

for i:=1 to 10 do a[i]:=i*i-5;

i = 1 a[1] = 1 * 1 - 5 = 1 - 5 = -4

i = 2 a[2] = 2 * 2 - 5 = 4 - 5 = -1

i = 3 a[3] = 3 * 3 - 5 = 9 - 5 = 4

i = 4 a[4] = 4 * 4 - 5 = 16 - 5 = 11

i = 5 a[5] = 5 * 5 - 5 = 25 - 5 = 20

i = 6 a[6] = 6 * 6 - 5 = 36 - 5 = 31

i = 7 a[7] = 7 * 7 - 5 = 49 - 5 = 44

i = 8 a[8] = 8 * 8 - 5 = 64 - 5 = 59

i = 9 a[9] = 9 * 9 - 5 = 81 - 5 = 76

i = 10 a[10] = 10 * 10 - 5 = 100 - 5 = 95

Исправьте ошибки: Program massiv; Var a:array(-10..10) of integer; Begin For i:=1 to 20 Do Read(a[i]); For i:=1 to 20 Do a[i]:=a[i]/10; For i:=1 to 20 Do Write(a[i]) End. 2.

MOGZ ответил

Исправьте ошибки: Program massiv;
Var a:array(-10..10) of integer;
Begin
For i:=1 to 20 Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
2.