Написать программу и отладить ее по заранее подготовленному тесту

@Виутор · Регистрация: 27.03.2013

Написать программу и отладить ее по заранее подготовленному тесту.

- если третий элемент массива чётный, то поменять его местами с первым, иначе приравнять его последнему элементу

@Puporev · 08.06.2013, 09:16

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива от 4 до ',nmax,' n=');
readln(n);
until n in [4..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
writeln('Третий элемент=',a[3]);
if a[3] mod 2=0 then
 begin
  writeln('Он четный, обмен третьего и первого');
  k:=a[3];
  a[3]:=a[1];
  a[1]:=k ;
  for i:=1 to n do
  write(a[i]:4)
 end
else
 begin
  writeln('Он нечетный, третий приравнять к последнему');
  a[3]:=a[n];
  for i:=1 to n do
  write(a[i]:4)
 end;
readln
end.

@Виутор 0 / 0 / 0 Регистрация: 27.03.2013 Сообщений: 8
		1
	Написать программу и отладить ее по заранее подготовленному тесту 07.06.2013, 23:16. Показов 1028. Ответов 1 Метки нет (Все метки) Написать программу и отладить ее по заранее подготовленному тесту. - если третий элемент массива чётный, то поменять его местами с первым, иначе приравнять его последнему элементу __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Написать программу и отладить ее по заранее подготовленному тесту

Решение