Var n:integer; Begin Write('Введите четырёхзначное число '); Readln(n); if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin Write('Сумма цифр числа ',n); if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна'); End else write('Число ',n,' не четырёхзначное. Перезапустите программу'); End.
Uses crt; var b:array[1..100,1..100] of integer; r:array[1..100,1..100] of integer; str,stb,i,j:integer; Begin randomize; clrscr; Writeln('Введите количество строк : '); Read(str); Writeln('Введите количество Столбцов: '); Readln(stb); writeln; writeln('Matrica B'); For i:=1 to str do begin For j:=1 to stb do begin b[i,j]:=random(30)+1; r[i,j]:=2*b[i,j]; write(b[i,j]:3,' '); end; writeln; end; writeln; writeln('Matrica R'); for i:=1 to str do begin for j:=1 to stb do begin write(r[i,j]:3,' '); end; writeln; end; readln; end.
Запускаем , и первом делом создаём двухмерный массив Введя числа(когда программа запросит) не превышающий числа 100 (Строки и столбцы) ... после как мы ввели числа создается массив заполняя массив случайными числами в диапазоне 1..30.. И выводим Массив B, после удваиваем каждый элемент и заносим удвоенный результат в масссив R, и тоже выводим
Ты объявила массив от 1 до 10, а в конце в цикле пытаешься обратиться к элементу с индексом 0! (for i:=0 to m do begin for j:=0 to n do) Ну и куча мелких недочетов еще тут есть
const n=5; m=6; var a:array[1..n,1..m] of integer; i,j: integer; begin writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:4); end; writeln; end; writeln('Измененный массив:'); for i:=1 to n do begin for j:=1 to m do begin if a[i,j]=0 then a[i,j]:=i+j; write(a[i,j]:4); end; writeln; end; end.
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.