Составить алгоритм с условием и составить таблицу трасировки

160

353

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

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

моника59

Информатика

4,7(70 оценок)

Var t: array[1..10] of integer; c: array[1..10] of integer; k,i: integer; begin; for i: =1 to 10 do begin; writeln('value of ',i,' product'); readln(t[i]); writeln('price of ',i,' product'); readln(c[i]); k: =k+c[i]*t[i]; end; writeln('result: ',k); end.