//PascalABC.NET v3.3 1633
var arr: array [1..6, 1..6] of integer;
begin
for var i:=1 to 6 do
for var j:=1 to 6 do
arr[i, j]:=random(-49, 50);
writeln('Исходный массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
var num:=0;
for var i:=1 to 6 do
if arr[i, 2] < 0 then num += 1;
writeln('Количество отрицательных элементов второго столбца: '+num);
for var i:=1 to 6 do
for var j:=1 to 6 do
if arr[i, j] > 0 then arr[i, j]:=-49;
writeln('Новый массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
end.
#include <iostream>
#include <Windows.h>
using namespace std;
int num;
while(true) {
cin >> num;
cout << num << " x 1 = " << num * 1 << endl;
cout << num << " x 2 = " << num * 2 << endl;
cout << num << " x 3 = " << num * 3 << endl;
cout << num << " x 4 = " << num * 4 << endl;
cout << num << " x 5 = " << num * 5 << endl;
cout << num << " x 6 = " << num * 6 << endl;
cout << num << " x 7 = " << num * 7 << endl;
cout << num << " x 8 = " << num * 8 << endl;
cout << num << " x 9 = " << num * 9 << endl;
}
system("pause");
return 0;
Если что-то неправильно сделал, не суди, давно не программировал и уже особо не помню.
Поделитесь своими знаниями, ответьте на вопрос:
Сукупність клітинок яка міститься на перетині одно чи декількох стовпців і рядків - це
Документ, створений за до табличного процесора Excel, називається книгою. Книга може складатись із кількох аркушів, кожен із яких поділений на рядки і стовпці. На перетині рядків і стовпців розташовані клітинки, до яких можна вводити дані. Деяка сукупність клітинок називається діапазоном.