#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.3.5, сборка 1669 от 21.05.2018 Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(5,5,-9,9); a.Println(3); Writeln(15*'-'); var s:=a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count)) .Where(t->t[1]>1).OrderBy(t->t[0]); var c:=a.ElementsWithIndexes.OrderBy(t->t[0]).ToArray; Writeln('Знач. Кол-во Индексы'); foreach var p in s do begin Write(p[0]:3,p[1]:7,' '); var q:=p[0]; var s1:=c.IndexesOf(t->t[0]=q); foreach var k in s1 do Write('(',c[k][1]+1,',',c[k][2]+1,') '); Writeln end end.
![[100б]в матрице 5x5 определить количество и номера однозначных элементов - pascalabc](/tpl/images/0917/8958/9c9fe.jpg)
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите строку');
for var i:=s.Length downto 1 do
if s[i]<>' ' then Insert('а',s,i+1);
Writeln(s)
end.
Пример
Введите строку Мама мыла раму маша ела кашу
Мааамааа маыалааа рааамауа мааашааа еалааа кааашауа