Помогите с заданиями на фото. Даю 30 баллов. Пожалуйстаааа...
Answers & Comments
Сяома
Есть разница какой язык, или нет? Objekt Pascal: 1)var A:array [1..25] of integer; begin A[10]:=7; end; 3)var A:array[1..N] of integer; B:integer; begin for 1 to N do if A[B] mod 2 then A[B]:=A[B]+1; НО! информация не точная, так как во первых: я давненько не работала с языком Объект Паскаль, но подозреваю, что сейчас в школах его изучают; во вторых: пол двенадцатого ночи, соображать трудно:)
Answers & Comments
Objekt Pascal:
1)var A:array [1..25] of integer;
begin
A[10]:=7;
end;
3)var A:array[1..N] of integer;
B:integer;
begin
for 1 to N do
if A[B] mod 2 then
A[B]:=A[B]+1;
НО! информация не точная, так как во первых: я давненько не работала с языком Объект Паскаль, но подозреваю, что сейчас в школах его изучают; во вторых: пол двенадцатого ночи, соображать трудно:)