В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент - id1075692820210726 от anonim1235 26.07.2021 16:09

Question

Информатика: В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив: n := 10; for i:=0 to n do begin K := A[i]; A[K] := 0; end; В начале выполнения этого фрагмента в массиве находились числа 5, 4, 3, 2, 1, 10, 9, 8, 7, 6, 5, т. е. A[0] = 5, A[1] = 4 и т. д. Сколько элементов массива после выполнения программы будут иметь ненулевые значения?

anonim1235 · Accepted Answer

Var a: byte; b:integer; Begin  writeln( Введите день месяца ); readln(b); writeln( Введите номер месяца );    Readln(a);               Case a of         1: writeln(b, янавря );         2: writeln(b, февраля );       3: writeln(b, марта );         4: writeln(b, апреля );       5: writeln(b, мая );       6: writeln(b, июня );         7: writeln(b, июля );        8: writeln(b, августа );      9: writeln(b, сентября );      10: writeln(b, октября );      11: writeln(b, ноября );        12: writeln(b,...

MOGZ ответил