#include<iostream>
#include<cstdlib>
#include<ctime>
using namespace std;
int main()
{
<span> srand(time(NULL));
</span><span> int B[50][100];</span>
<span> for(int i = 0; i < 50; i++)</span><span>
{
</span><span> for(int j = 0; j < 100; j++)
</span><span> {</span><span>
B[i][j] = rand() % 100;</span><span>
cout << B[i][j] << ' ';
</span><span> }
</span><span> cout << '\n' << endl;
</span><span> }
</span><span>}</span>
Может ошибок а не вирусов Зака чай себе антивирусник или redorganaizer для исправление ошибок
Var
t,v:integer;
Begin
Write('Введите температуру воздуха(°C): ');ReadLn(t);
if t > -20 then WriteLn('Дети идут в школу')
else if t<-25 then WriteLn('Дети в школу не идут')
else
Begin
Write('Введите скорость ветра(м/с): ');ReadLn(v);
if v>=7 then WriteLn('Занятия отменяются')
else WriteLn('Занятия не отменяются');
End
End.
На примере DelphiVarX:integer; Button_Click() BeginS:=0;x:=StrtoInt(Text1.text);x:=x mod 10; Label1.caption(InttoStr(x)); End; Результат: 5
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrGen(10,i->3*(i+1)); a.Println;
end.
<u>Результат</u>
3 6 9 12 15 18 21 24 27 30