Регистрация
Taekimyeon
12.08.2022 03:34
Информатика
Есть ответ 👍

семетриялы және асеметриялы заттарға мысалдар келтір Сурет салу барысында қай заттарды салу тиімді әрі тез​

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

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

evaIA24102003
evaIA24102003
4,8(32 оценок)
Var  a: array [1..10] of real;         i,k: integer;       max,c: real;     begin  randomize;   writeln('введите массив');   for i: =1 to 10 do    begin            a[i]: =random*10+0;             write(' ' , a[i]: 6: 3);       end;       max: =a[10];   for i: =1 to 10 do      if a[i]> max then    begin    max: =a[i];     k: =i;   end;   writeln(' max= ' , max: 6: 3, ' k= ', k);           c: =a[1]; a[1]: =a[k]; a[k]: =c;       writeln;         for i: =1 to 10 do    write(' ' , a[i]: 6: 3); end.

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