только правильно очень важно вас​

{Напишите программу, которая находит минимальное и максимальное
среди чётных положительных чисел, записанных в файле,
и выводит результат в другой файл.}
var f:text;
  min, max,a :integer;
  find:boolean;{есть/нет числа удовлетворяющие условию}
begin
 assign(f,'dan.txt'); reset(f);
 min:=0; max:=0;
 find:=false;
 while not eof(f) do
 begin
  read(f,a);
  if not find and (a>0) and (a mod 2=0) then
  begin
   min:=a; find:=true;
  end
  else
  if find and (a>0) and (a mod 2=0) and (min>a) then
   min:=a;

  if (a>0) and (a mod 2=0) and (max<a) then
   max:=a;
 end;
 close(f);
 assign(f,'res.txt');
 rewrite(f);
 if max=0 then writeln(f,'чётных положительных чисел нет')
  else
   writeln(f,'min среди чётных положительных чисел =',min, chr(13),
      'max среди чётных положительных чисел нет',max);
  close(f);
end.

Школьные Знания.com

Какой у тебя вопрос?

10 - 11 классыИнформатика 8+4 б

Дан массив вещественных чисел:

Все элементы с нечетными номерами заменить на их квадратный корень

Отметить нарушение РРПП 01.04.2013

ответы и объяснения

Проверенный ответ

Tlalok

Tlalok Почетный грамотей

var

a:array[1..100] of real;

i, n:integer;

begin

write('Введите количество элементов '); readln(n);

for i := 1 to n do

begin

write('a[', i ,'] = ');

readln(a[i]);

end;

writeln;

writeln('Исходный массив:');

for i := 1 to n do

begin

write(a[i], ' ');

if i mod 2 = 1 then

a[i] := sqrt(a[i]);

end;

writeln;

writeln;

writeln('Преобразованный массив:');

for i := 1 to n do

write(a[i]:0:2, ' ');

writeln;

end.