var
a : array of integer;
n, i, last : integer;
begin
read (n);
setlength (a, n);
for i := 0 to n - 1 do
read (a[i]);
last := 0;
for i := 0 to n - 1 do
if a[i] <> 0 then
begin
a[last] := a[i];
inc (last);
end;
setlength (a, last);
for i := 0 to last - 1 do
write (a[i], ' ');
end.
Суть такова. Имеем динамический массив. Считали массив, так как динамический, то от нуля все. Установили последнюю свободную ячейку 0. Идем по массиву и ищем ненулевое значение. Как только нашли, пишем его в свободную ячейку и увеличиваем занчение свободной ячейки на 1. При этом наши данные не затираются. После окончания всех операций в last лежит длина массива.
Статитечкий массив.
var
a : array [1..100] of integer;
n, i, last : integer;
begin
read (n);
for i := 1 to n do
read (a[i]);
last := 1;
for i := 1 to n do
if a[i] <> 0 then
begin
a[last] := a[i];
inc (last);
end;
dec (last);
for i := 1 to last do
write (a[i], ' ');
end.
var
a : array [1..100] of integer;
n, i : integer;
flag : boolean;
begin
write ('Введите количество чисел: ');
readln (n);
for i := 1 to n do
begin
write (i, '-ое число = ');
readln (a[i]);
end;
for i := 1 to n do
begin
write (i, '-оечисло ');
if a[i] < 0 then
begin
write ('отрицательно');
flag := true;
end;
if a[i] mod 2 = 0 then
begin
write ('четно');
flag := true;
end;
if not flag write ('никакое');
flag := false;
writeln;
end;
end.
Написал на С++
Объяснение:
#include <iostream>
#include <windows.h>//для русской раскладки
using namespace std;
int main()
{
SetConsoleCP(1251);//подключаем русскую раскладку
SetConsoleOutputCP(1251);
float a[5]; //массив (5 - размер массива, если меняете размер массива, то в циклах for ниже тоже поменяйте пятерку)
cout << "Введите элементы массива:" << endl;
for (int i = 0; i < 5; i++)
{
cout << "a[" << i << "] = ";
cin >> a[i];
}
float min = a[0]; //минимальный элемент массива
float max = a[0]; //максимальный элемент массива
for (int i = 0; i < 5; i++)
{
if (a[i] < min)
min = a[i];
if (a[i] > max)
max = a[i];
}
cout << "Минимальный элемент массива равен: " << min << endl;
cout << "Максимальный элемент массива равен: " << max << endl;
system("pause");
return 0;
}