проверьте пожалуйста программу!!!
10-11 класс
|
1. Заполнить массив случайные числами из промежутка [10;20]
2. Найти максимальный и минимальный элементы в этом массиве
3. Обменять первый максимальный и последний минимальный
1) п.3 не совсем выполняется. Будут обменены первый максимальный и первый минимальный, а надо последний минимальный.
Для этого надо изменить строку
if mass[i] < min then
на
if mass[i] <= min then
2) Если максимальный элемент будет под номером 1, то программа его не напечатает, т.к. i останется равным предыдущему значению. Надо добавить строчку: между
Не могу ответить, нет кнопки "ответ". А ошибки есть.
Другие вопросы из категории
по следующему правилу: F1 = 1, F2 = 1, Fn
ли он параллелограммом, если ДА – вычислите выражение |(a+b)2+| с точностью до сотых, где а и b смежные стороны параллелограмма.
Читайте также
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
1. Заполнить массив случайные числами из промежутка [10;20]
2. Найти максимальный и минимальный элементы в этом массиве
3. Обменять первый максимальный и последний минимальный
program f_3;
var f1, f2, f3:text;
C:integer;
G:char;
s:string;
sp:string;
begin
s:=('');
sp:=(' ');
Assign(f1, 't.txt');
Assign(f2, 't2.txt');
Assign(f3, 't3.txt');
Reset(f1);
Rewrite(f2);
Rewrite(f3);
while not eof(f1) do
begin
readln(f1,G);
C:=ord(G);
writeln(f2,inttostr(C));
end;
Reset(f2);
while not eof(f2) do
begin
readln(f2,C);
G:=chr(C);
writeln(f3,G);
end;
close(f1);
close(f2);
close(f3);
end.