const n=10;
var a:array [1..n] of real;
i,mi:integer;
s,m,p:real;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random*20-10;
write(a[i]:0:3,' ');
if a[i]>0 then s:=s+2*a[i];
end;
writeln;
m:=a[1];
mi:=1;
for i:=1 to n do if a[i]>m then
begin
m:=a[i];
mi:=i
end;
p:=1;
for i:=mi to n do if a[i]<0 then p:=p*2*a[i];
writeln ('Удвоенная сумма всех положительных элементов массива: ',s:0:3);
if p=1 then writeln ('Отрицательных чисел после максимального элемента нет')
else writeln ('Удвоенное произведение всех отрицательных элементов массива, расположенных после максимального элемента: ',p:0:3);
end.
Відповідь:
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL , "Rus");
int a,b,x,y;
cout << "Введите первое число: ";
cin >> a;
cout << "Введите второе число: ";
cin >> b;
if(a % b == 0){
cout << "Делится" << endl;
x = a / b;
cout << "Частное: " << x << endl;
}
else if(a % b != 0){
cout << "Не делится" << endl;
x = a / b;
y = a % b;
cout << "Частное: " << x << " Остаток: " << y << endl;
}
return 0;
}
Поделитесь своими знаниями, ответьте на вопрос:
Домашняя работа: п. 20 тест 1 Рабочая книга Excel состоит из: 1) рабочих листов; 2) рабочих полей; 3) столбцов; 4) строк. 2 В электронной таблице ячейкой называют: 1) горизонтальный столбец; 2) вертикальный столбец; 3) пересечение строки и столбца; 4) темный прямоугольник на экране. 3 Электронные таблицы невозможно применить для: 1) выполнения математических расчетов; 2) обработки изображений; 3) рисования графиков и диаграмм; 4) оформления отчетов. 4 Для выделения всей строки необходимо щелкнуть мышью на: 1) номере строки; 2) имени столбца; 3) поле имени; 4) номере листа. 5 Адресом ячейки является: 1) 1С; 2) FI; . 3) $С1; 4) F$1K. 6 Ввод формул в таблицу начинается со знака: 1) $; 2) f; 3) =; 4) @. 7 Запись в ячейке говорит о том, что: 1) непонятна формула; 2) столбец недостаточно широк; 3) неверна ссылка; 4) ссылка циклическая.
2
3
2
1
1
3
2
Объяснение: