Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Решение задач по языку программирования Pascal.A.B.C net

Кирилл Г ригорьев Ученик (91), на голосовании 8 месяцев назад
  1. Дан вещественный массив. введённый с клавиатуры, из N элементов
среди них есть одинаковые. Найти первый максимальный элемент и
заменить его нулём. Вывести результирующий массив
  1. Заполнить вещественный массив из N элементов так, чтобы его
элементы были равны их квадратному корню из соответствующих
номеров
  1. Дан одномерный массив целых чисел, сформированный случайным
образом. Ко всем чётным элементам массива прибавить его номер.
Вывести исходный и результирующий массивы
  1. Дан одномерный массив, сформированный случайным образом в
промежутке (-30:30). Найти и вывести сумму отрицательных элементов.
  1. Одномерный массив задан случайным образом от -20 до 20.
Определить и вывести номер последнего минимального из
положительных элементов массива.
Голосование за лучший ответ
Жирный Жир Гуру (3931) 9 месяцев назад
1
 program Task1; 
var
N, i, maxIndex: integer;
arr: array of real;
begin
write('Введите размер массива N: ');
readln(N);
SetLength(arr, N);

for i := 0 to N - 1 do
begin
write('Введите элемент arr[', i, ']: ');
readln(arr[i]);
end;

maxIndex := 0;
for i := 1 to N - 1 do
begin
if arr[i] > arr[maxIndex] then
maxIndex := i;
end;

arr[maxIndex] := 0;

writeln('Результат:');
for i := 0 to N - 1 do
writeln('arr[', i, '] = ', arr[i]);
end.
2
 program Task2; 
var
N, i: integer;
arr: array of real;
begin
write('Введите размер массива N: ');
readln(N);
SetLength(arr, N);

for i := 0 to N - 1 do
arr[i] := sqrt(i);

writeln('Результат:');
for i := 0 to N - 1 do
writeln('arr[', i, '] = ', arr[i]);
end.
3
 program Task3; 
var
N, i: integer;
arr: array of integer;
begin
write('Введите размер массива N: ');
readln(N);
SetLength(arr, N);

for i := 0 to N - 1 do
arr[i] := Random(100); // Заполнение случайными числами

writeln('Исходный массив:');
for i := 0 to N - 1 do
write(arr[i], ' ');

writeln;

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

writeln('Результирующий массив:');
for i := 0 to N - 1 do
write(arr[i], ' ');
end.
4
 program Task4; 
var
N, i, sum: integer;
arr: array of integer;
begin
write('Введите размер массива N: ');
readln(N);
SetLength(arr, N);

for i := 0 to N - 1 do
arr[i] := Random(61) - 30; // Заполнение случайными числами в интервале [-30, 30]

writeln('Исходный массив:');
for i := 0 to N - 1 do
write(arr[i], ' ');

writeln;

sum := 0;
for i := 0 to N - 1 do
begin
if arr[i] < 0 then
sum := sum + arr[i];
end;

writeln('Сумма отрицательных элементов: ', sum);
end.
5
 program Task5; 
var
N, i, minIndex: integer;
arr: array of integer;
begin
write('Введите размер массива N: ');
readln(N);
SetLength(arr, N);

for i := 0 to N - 1 do
arr[i] := Random(41) - 20; // Заполнение случайными числами в интервале [-20, 20]

writeln('Исходный массив:');
for i := 0 to N - 1 do
write(arr[i], ' ');

writeln;

minIndex := -1;
for i := 0 to N - 1 do
begin
if (arr[i] > 0) and ((minIndex = -1) or (arr[i] <= arr[minIndex])) then
minIndex := i;
end;

writeln('Номер последнего минимального положительного элемента: ', minIndex);
end.
Похожие вопросы