<span>1 Дан массив А(10). Заменить все нечетные элементы массива на минимальное значение. вывести преобразованный массив.</span>
<span>2 Вести массив А(36). найти произведение первых пяти элементов массива, сумму остальных и частное от деления произведения и суммы. вывести все результаты.
1) при помощи цикла найти минимальное значение.
2) записать значение минимума в отдельную переменную.
3) при помощи цикла каждый элемент проверять на четность, если элемент четный, то тогда переходить к следующему, а если он не четный, то приравнивать его к переменной в которой записан минимум.
1) при помощи цикла ограниченным до 5ого элемента включительно любую объявленную переменную и заранее приравненную к единице умножить поэлементно(при помощи цикла)
2) начиная с 6 элемента и до конца при помощи цикла сложить все элементы и записать эту сумму в отдельную объявленную переменную
3)записать в объявленную переменную выражение произведение/сумму.
4) вывести все переменные на экран.
</span>
Program StrokABC;
uses Crt;
var d,n,i,k:integer;
s:string;
begin
clrscr;
writeln('Введите n:');
readln(n);
repeat
clrscr;
readln(s);
until length(s)=n;
d:= length(s);
for i:=1 to d do
if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then k:=k+1;
writeln('строка abc входит в данную строку ',k,' раз');
readkey;
end.
<em>// PascalABC.NET 3.2, сборка 1401 от 14.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrFill(50,1); a.Println
end.
<u>Замечание: полученный массив имеет 50 элементов, но индексы [0..49]</u>
<em>2. "Школьный вариант"</em>
var
a:array[1..50] of integer;
i:integer;
begin
for i:=1 to 50 do begin
a[i]:=1;
Write(a[i]:2)
end;
Writeln
end.
по риснку увиидшь - то что в середине - это объединение и пересечение множеств
компьютер
Объяснение:
К \"о\" мПьют (в слове \"путь\" \"у\" заменили на \"ью\" и убрали \"ь\")Ер (от слова сердце)Как-то так
