составьте программу , которая заполняет массив а[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
Вам скриншот прислать программы в Паскаль АБС ?
Вас заинтересует
9 лет назад