Сформулируйте условие программы
program inr1;
type art=record
nume:string;
nr_loc:longint;
end;
var a:array[1..20] of art;
n,i:integer;
begin
write('n=');readln(n);
for i:=1 to n do begin
write('имя',i,'=');readln(a[i].имя);
write('nr_loc=');readln(a[i].nr_loc)
end;
writeln(Все города с населением более 100000 человек':');
for i:=1 to n do if a[i].номер_место>=100000 then writeln(a[i].имя);
readln;
end.
1. Это двухмерный массив
(TypeError: unsupported operand type(s) for +=: 'int' and 'list')
2. 3x4 ([3][4])
3. Сложение элементов двумерного массива.
Только вот работать не будет, я полагаю здесь должны были складываться все элементы массивов, но на фото он прибавляет к переменной S не числа а массивы. И это выдаёт ошибку, так что...
Я бы сделал это так:
b = [[3, 5, 7, 78], [12, 10, 9, 56], [45, 31, 14, 23]]
s = 0
for i in b:
for j in i:
s += j
# Или используя len:
for i in range(len(b)):
for j in range(len(i)):
s += b[i][j]
print('s =', s)
# s = 293
begin
var n:=ReadInteger('Введите четырехзначное число');
Writeln('В числе');
Writeln(n div 1000,' - тысяч');
Writeln((n div 100) mod 10,' - сотен');
Writeln((n mod 100) div 10,' - десятков');
Writeln(n mod 10,' - единиц')
end.
Тестовое решение:
Введите четырехзначное число 4072
В числе
4 - тысяч
0 - сотен
7 - десятков
2 - единиц
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var n:=ReadInteger('Введите трехзначное число');
var s:=n div 100;
var d:=(n div 10) mod 10;
var e:=n mod 10;
Writeln('Sum=',s+d+e);
Writeln(e,d,s);
Writeln('В числе');
Writeln(e,' - сотен');
Writeln(d,' - десятков');
Writeln(s,' - единиц')
end.
Тестовое решение:
Введите трехзначное число 492
Sum=15
294
В числе
2 - сотен
9 - десятков
4 - единиц