Предмет: Информатика,
автор: artyom228337
составьте программу , которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 , затем преобразовывает его, увеличивая все элементы с четными значениями на1 . если элементы с четными значениями отсутствуют, оставить массив без изменений
Ответы
Автор ответа:
0
program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(10);
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(10);
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
Автор ответа:
0
program ex;
uses crt;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(10);
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
uses crt;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(10);
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
Автор ответа:
0
паскаль ABC а не паскаль ABC.NET
Автор ответа:
0
Что :D ?
Автор ответа:
0
Вам скриншот прислать программы в Паскаль АБС ?
Похожие вопросы
Предмет: География,
автор: Hisokamoroy
Предмет: История,
автор: cuncevanatali
Предмет: Русский язык,
автор: gorbushinaanna89
Предмет: Математика,
автор: Memo3D
Предмет: Математика,
автор: лусак