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

Question

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

Кирилл Г ригорьев Ученик (91), на голосовании 8 месяцев назад

Дан вещественный массив. введённый с клавиатуры, из N элементов

среди них есть одинаковые. Найти первый максимальный элемент и
заменить его нулём. Вывести результирующий массив

Заполнить вещественный массив из N элементов так, чтобы его

элементы были равны их квадратному корню из соответствующих
номеров

Дан одномерный массив целых чисел, сформированный случайным

образом. Ко всем чётным элементам массива прибавить его номер.
Вывести исходный и результирующий массивы

Дан одномерный массив, сформированный случайным образом в

промежутке (-30:30). Найти и вывести сумму отрицательных элементов.

Одномерный массив задан случайным образом от -20 до 20.

Определить и вывести номер последнего минимального из
положительных элементов массива.

Answer 1

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.