Нет компьютер идё к памяти распознаёт имена всех компьютеров мира и потом идёт в рабочий стол и в хронологические данные
ВОРОБЕЙ ЕСЛИ ВЫБРАТЬ ИЗ ЭТИХ ТАК КАК ОСТАЛЬНЫЕ НЕЖИВЫЕ
Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.
Ответ:
1. Имя qt. Элементов 19. Тип данных real (вещественные числа)
2. Значение 15, индекс 1
3. а: array [1..20] of integer
4. a[i]:=random (31)
5. 6, 9, 14, 21, 30
Объяснение:
1. 23-5+1=24-5=19
2. А[4]=15 А[1]=26
5.
a[1]=5+1*1=5+1=6
a[2]=5+2*2=5+4=9
a[3]=5+3*3=5+9=14
a[4]=5+4*4=5+16=21
a[5]=5+5*5=5+25=30