Задан массив состоящий из n элементов c[n].найти максимальный отрицательный элемент в диапазоне [-7; 7] .показать блок схему этой и написать на языке паскаля
#include "iostream" #include <Windows.h> using namespace std; int main() { setlocale(LC_ALL, "Russian"); int n,m,index,value; value = 0; int mas[50]; cout << "Введите колличество элементов матрицы: ", cin >> n, cout <<endl; for (int i = 0; i < n; i++){ cout << "Введите " << i << " элемент матрицы: ", cin >> m; mas[i] = m; if (m < 0) { index = i; value = m; } } cout << "Заданная матрица: "; for (int i = 0; i < n; i++){ cout << mas[i] << " "; } cout << endl << "Номер последнего отрицательного числа: " << index << endl; cout << "Значение последнего отрицательного числа: " << value << endl; system("pause"); }
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
function Res(a:integer;op:char;b:integer):integer; begin case op of '+':Result:=a+b; '-':Result:=a-b; '*':Result:=a*b; '/':Result:=a div b end end;
begin var s:=ReadlnString('Вводите:'); var p:=s.Matches('(((\-)?\d+)|[\+\-\*\/])').ToArray; if p.Count<>5 then Writeln('Ошибка!') else begin var op1:=p[1].Value[1]; var op2:=p[3].Value[1]; var a:=p[0].Value.ToInteger; var b:=p[2].Value.ToInteger; var c:=p[4].Value.ToInteger; if (op1 in ['+','-']) and (op2 in ['*','/']) then Writeln('='+Res(Res(b,op2,c),op1,a)) else Writeln('='+Res(Res(a,op1,b),op2,c)) end end.
#include <Windows.h>
using namespace std;
int main() { setlocale(LC_ALL, "Russian");
int n,m,index,value;
value = 0;
int mas[50];
cout << "Введите колличество элементов матрицы: ", cin >> n, cout <<endl;
for (int i = 0; i < n; i++){
cout << "Введите " << i << " элемент матрицы: ", cin >> m;
mas[i] = m;
if (m < 0) {
index = i;
value = m;
}
}
cout << "Заданная матрица: ";
for (int i = 0; i < n; i++){
cout << mas[i] << " ";
}
cout << endl << "Номер последнего отрицательного числа: " << index << endl;
cout << "Значение последнего отрицательного числа: " << value << endl; system("pause");
}