Помощь - Поиск - Пользователи - Календарь
Полная версия: Одномерные массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.