Тема: Массивы найти сумму 4 элементов, самый минимальный из них и заменить его на 8 3 задачи в 1 спасибо заранее)
5-9 класс
|
var
mas:array[1..4] of integer;
sum,i,min:integer;
begin
sum:=0;
for i:=1 to 4 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
min:=1;
for i:=2 to 4 do
if mas[i]<mas[min] then
min:=i;
mas[min]:=8;
for i:=1 to 4 do
write(mas[i],' ');
writeln;
writeln(sum);
end.
Другие вопросы из категории
1. Сначала вторая строка пуста
2.Затем каждый символ первой строки от первого до последнего приписывается к создаваемой(второй) строке слева , если это гласная буква и ее позиция в исходной строке была нечетной , или если это согласная буква и ее позиция была четной. Во всех остальных случаях очередной символ первой строки приписывается ко второй строке справа . По этому алгоритму строка ВОЦА превратилась в строку ОВЦА .
А какая строка превратилась в строку ИНАВОРИГОРПРАМЕ ??
Читайте также
верно ли,что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна А(А вводится с клавиатуры)
4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры)
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
арифметическое всех элементов массива a
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.