Заповніть масив "К" із восьми елементів, значеннями з клавіатури і вівести в рядок вказавши його порядковій номер написати блок схему та программу
Заповніть масив "К" із восьми елементів, значеннями з клавіатури і вівести в рядок вказавши його порядковій номер
написати блок схему та программу
Ответ(ы) на вопрос:
Гость
Var x: array[1..8] of longint;
Var i,a : longint;
Begin
for i:= 1 to 8 do
begin;
readln(a);
x[i] := a;
end;
Writeln('Массив K:');
for i:= 1 to 8 do
begin;
writeln('Элемент массива K с индексом ',i,' = ',x[i]);
end;
Readln(a);
end.
//Строчку в конце "Readln(a)" Можно не писать, она нужна, чтобы программа остановилась и ты увидел результат
Не нашли ответ?
Похожие вопросы