Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Одномерные массивы

Автор: Lenivec Sid 8.12.2006 21:49

Помогите решить задачку.

Дано массивы целых чисел розмером N. Переделать его, прибавив к четным числам первый элемент. Первый и последний элементы массива не изменять. Вот начало программы, помогите дорешать.

program Prim_5;
uses CRT;
var n:integer;
a: array [1..100] of real;
Nmin: integer;
min: real;
i: integer;
begin
clrscr; 
writeln ('Введите колличество элементов: ');readln (N);
writeln ('Введите последовательность:');
for i:=1 to n do read(a[i]);
end.

Автор: Анастасия 9.12.2006 2:27

Введи числа например 1 2 4 2
ответ должен быть 1 3 5 2 .

Код

program Prim_5;
uses CRT;
const n=4;
var
a: array [1..n] of integer;
Nmin: integer;
min: real;
i: integer;
begin
clrscr;
for i:=1 to n do
begin
writeln('vvedite a [',i,']');readln(a[i]);
end;
writeln;
writeln('-----------');

for i:=2 to n-1 do begin
if a[i] mod 2 = 0 then begin
a[i]:=a[i]+a[1];
end; end;

for i:=1 to n do
begin
write( a[i],' ');
end;
end.