===== PascalABC.NET =====
begin
var i := 5;
while i <= 100 do
begin
Print(i);
i += 5
end
end.
Объяснение:
Понятно, первое натуральное число, кратное 5 - это 5. Все прочие должны получаться прибавлением 5 к предыдущему, т.е. это числа 10, 15, 20, ... 95. Входит ли в эти числа 100, из условия непонятно. Обычно, чтобы не было двусмысленности, для указания включения 100 в диапазон значений используют термины "не более 100", "до 100 включительно", "не превышающие 100", а "до 100" понимают как "меньше 100", т.е. как указание, что 100 включать не нужно.
Программа написана для случая, когда 100 включается в диапазон Если число 100 включать не нужно, в операторе whiie i <= 100 do из условия <= удалите знак равенства =.
===== С++ 17 =====
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int n = 5;
int a[n][n];
srand(time(NULL));
for(int i = 0; i < n; i++)
{
for(int j = 0; j < n; j++)
{
a[i][j] = rand() % 199 - 99;
cout << setw(4) << a[i][j] << " ";
}
cout << endl;
}
// матрица готова к работе
int min = 1000;
for(int i = 0; i < n; i++)
if (a[i][n - i - 1] < min)
min = a[i][n - i - 1];
cout << "\nMin = " << min;
return 0;
}
i,n:integer;
a:array[1..20]of integer;
begin
for i:=1 to 20 do
begin
readln(a[i]);
if a[i]<0 then n:=n+1
end;
writeln('ответ: ',n)
end.