Регистрация
Galel227
07.07.2021 14:14
Информатика
Есть ответ 👍

Нужна , таблица (список товаров в магазине) 6 полей, 3 записи

230
443
Посмотреть ответы 1

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

Rusik276378
Rusik276378
4,4(76 оценок)
Var i,n,k: integer; c: array[1..10] of integer; begin k: =0; for i: =1 to 10 do begin c[i]: = random(10)-5; write(c[i]: 4); if (c[i] = 0) and (k = 0) then begin n: = i; k: =1; end; end; write('   n=',n); end.

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