Вопрос по информатике:
Написать программы в Паскале
• Дан массив из N вещественных чисел. Поменять местами последний и минимальный элементы массива.
• Дан массив из N целых чисел. Найти номер первого элемента, который равен количеству элементов, кратных 3.
- 15.02.2018 01:40
- Информатика
- remove_red_eye 1408
- thumb_up 36
Ответы и объяснения 1
Program task1;
const
n = 10;
var
a :array [1..n] of real;
i, j :integer;
min, k :real;
begin
for i:= 1 to n do
readln(a[i]);
min:= a[1];
for i:= 1 to n do
if a[i] < min then
begin
min:= a[i];
j:= i;
end;
k:= a[n];
a[n]:= a[j];
a[j]:= k;
end.
program task2;
const
n = 10;
var
a :array [1..n] of integer;
i, j, kol :integer;
begin
for i:= 1 to n do
readln(a[i]);
kol:= 0;
for i:= 1 to n do
if a[i] mod 3 = 0 then
inc(kol);
for i:= 1 to n do
if a[i] = kol then
begin
j:= i;
break;
end;
writeln(j);
end.
- 16.02.2018 05:39
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.