program Project1;
const
n = 15;
var
c: array[1..n] of real = (0, 1.25, -371, 0.5, -0.1, 1.2, -5, -172.3, 19783, -2.7, 43.51, 0, -0.02, 14.5, 123.7);
// Переменная для хранения массива.
i: integer; // Вс переменная для организации цикла.
minelem: real; // Переменная для хранения значения элемента с минимальным значением.
indmin: integer; // Переменная для хранения значения индекса минимального элемента.
begin
writeln('Исходный массив:');
for i:= 1 to n do // Вывод массива в консоль.
begin
write(c[i]:9:2);
if i mod 8 = 0 then
writeln;
end;
writeln;
minelem:= c[1];
indmin:= 1;
for i:= 2 to n do
if c[i] < minelem then // Условие для нахождения элемента с минимальным значением.
begin
minelem:= c[i];
indmin:= i; // Индекс элемента с минимальным значением.
end;
writeln('Минимальный элемент массива находится на ',indmin,' месте и равен ',minelem:0:2);
Readln;
end.
Объяснение:
В принципе я указал комментарии к некоторым действиям, так что должно быть понятно(комментарии потом лучше стереть). В отчет можешь сделать скриншот уже с результатом работы программы (мы так обычно делаем). Если остались вопросы пиши в комментарии.
Должны потому что:
1. Сейчас 21 век, вокруг есть компьютеры и их изучение необходимо.
2. Информатика развивает логическое мышление.
3. На информатике можно изучить язык программирования, с него можно писать программы.
4. Изучение программ worl и excel нужны чтобы устроится на работы. Почти везде просят эти знания.
5. Работа программистом востребована в наши дни, за эту работу платят много денег.
Не должны:
1. Можно обойтись и без информатики, например в деревне. Пасти овц и сажать картошку.
2. Хоть программирование не сложнее иностранного языка, он даётся некоторым людям очень тяжело.
3. На уроке информатики даётся не очень много полезной информации, лучше ходить в специальные места для программирования или 3д моделирования.
4. Вместо уроков обучится потом самостоятельно.
5. Если уже знаешь всё и так, можно и не изучать повторно.
Sub Rep()
n1 = Asc(" ")
n = Asc("я") - n1 + 1
Randomize Timer
s = Cells(1, 1).Value
For i = 1 To Len(s)
If Mid(s, i, 1) = "а" Then
Mid(s, i, 1) = Chr(Int(n * Rnd + n1))
End If
Next i
Cells(2, 1).Value = s
End Sub
Тестовое решение:
Наша Маша - растеряша!
Н3шЮ МHш# - рястеряшМ!