Вопрос №1: 1) - г 2) - а 3) - б 4) - д 5) - в вопрос №2: 1) - б 2) - в 3) - а 4) - д 5) - г вопрос №3: в,г вопрос №4: для ответа на этот вопрос необходимы картинки из условия, так что ответить без них не представляется возможным. вопрос №5: в вопрос №6: д вопрос №7: 1) - г 2) - в 3) - а 4) - д 5) - б вопрос №8: 1) - б 2) - а 3) - в вопрос №9: здесь,как и в вопросе №4 решающую роль играет рисунок,которого нет - ответа без него быть не может. вопрос №10: а,б,д вопрос №11: в - информационные компьютерные технологии с одновременным использованием нескольких видов информации.вопрос №12: все 3 варианта ответа имеют место быть верными, то есть все варианты верны.
var A: array[1..nmax] of integer; I, m, s: integer; Am, kon: text;
begin Clrscr; Assign(Am, 'Am.txt');
{раскоментировать для записи массива в файл} {Rewrite(Am); m := Random(nmax - 5) + 5; for i := 1 to m do Writeln(Am, Random(20)); Close(Am);}
{считывание данных из файла} Reset(Am); s := 0; m := 0; while not eof(Am) do begin m := m + 1; Readln(Am, A[m]); s := s + A[m]; end; Close(Am);
Assign(kon, 'kon.txt'); Rewrite(kon);
if s > 50 then Writeln('Сумма элементов массива более 50 и равна: s=', s) Else begin Writeln('Сумма элементов менее 50, вывод исходного массива'); for i := 1 to m do begin Writeln('A[', i, ']=', A[i], ' '); Writeln(kon, 'A[', i, ']=', A[i], ' '); end; end;
Close(kon); Readkey; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку