Составьте программу, которая будет будет просить человека ввести имеющуюся у него сумму денег? присваивать введенные данные переменной sum, а потом выводить три варианта ответа в зависимости от
имеющейся у посетителя суммы. При этом система выводит следующие варианты ответов в зависимости от
введенной суммы:
1. если сумма составляет менее 500 тенге - "У Вас недостаточно денег на билет."
2. от 500 до 5000 - "У Вас хватает денег на просмотр фильма в нашем кинотеатре." З. свыше 5000 - "Вы можете
Смотреть кино весь день."
Прикрепите написанную программу в виде файла в одном из следующих форматов: doc, jpeg, bmp, jpg.
begin
var n:=ReadInteger('Число строк (столбцов) матрицы:');
Writeln('Введите элементы матрицы построчно');
var a:array[,] of integer;
SetLength(a,n,n);
for var i:=0 to n-1 do
for var j:=0 to n-1 do Read(a[i,j]);
var s:=0;
for var i:=0 to n-1 do s+=a[i,i];
Writeln('Сумма элементов главной диагонали равна ',s)
end.
Тестовое решение
Число строк (столбцов) матрицы: 3
Введите элементы матрицы построчно
1 6 3
8 4 9
0 1 7
Сумма элементов главной диагонали равна 12