Помогите проверить мою Олимпиаду

[Vladik_2954]

Всем добрый день, у меня заданно 5 задач я в 9 классе там 2 из 10-11 + там всего 2 на темы которые мы учили. Я вот что смог решить, посмотрите и помогите исправить если я ошибся)
1.

program one;

uses CRT;

var
  i, sum: integer;

begin
  writeln('Найдем сумму целых чисел');
  readln;
  sum := 0;
  for i := 1 to 100 do sum := sum + i;
  writeln('Сумма равна=', sum);
end.

2.

program two;

uses CRT;

const
  P = 11; N = 12;

var
  K: real; i: integer;

begin
  writeln('Найдем итоговую сумму денег на банковском счету');
  readkey;
  writeln('Определим сумму которая была на счету');
  readln(K);
  for i := 1 to N do 
    K := K + K * P / 100; 
  writeln('Сумма на счету=', K);
end.
4.program fore;

uses CRT;

const
  a = 10;

var
  arr: array[1..a] of byte;
  max_num: byte;
  i: byte;

begin
  randomize;
  
  for i := 1 to a do 
  begin
    arr[i] := random(100);
    write(arr[i]:3);
  end;
  
  max_num := arr[1];
  
  for i := 2 to a do
    if arr[i] > max_num then begin
      max_num := arr[i];
    end;
  
  writeln;
  writeln('Max = ', max_num);
  
end.

Условия задач:1. Найдите сумму целых чисел от 1 до 100
2. Подсчитать итоговую сумму денег в банке за N лет при P процентах годовых.
4. Дан массив(10) заполненный датчиком случайных чисел. Найти максимальный элемент массива



_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[сфинкс]

2. Подсчитать итоговую сумму S денег в банке
за N лет при P процентах годовых.

S = S * (1+P/100)^N

причём по данной теме есть мой классный ютюб
включающий логарифм и размещу ежели нужен

а вообще в моей главной теме
есть классная олимпийская задача

рассмотрели бы на информатике

[Serge_Bliznykov]

Сообщение от Vladik_2954

Найдите сумму целых чисел от 1 до 100

Вы правильно решили. Только readln; в начале лишний.
А сумму можно найти так, через суммирование в цикле.
А можно и так:

program one;
var s : integer;
begin
  sum := (1+100)*100 div 2;
  writeln('Сумма равна=', sum);
end.

2 задача.
На мой взгляд - всё хорошо.
Только процент и количество лет я бы всё же спрашивал у пользователя.
Или, если уж задаёте их константами в программе, так хотя бы выведите пользователю. Он же не знает, сколько процентов и на сколько лет депозит рассчитает программа!

4-я программа. Тоже всё корректно.


p.s. для олимпиадных задач это как-то очень всё просто. Задачки из тех, что решают при обучении, азбучные. На олимпиаде задания должны быть намного сложнее.
Имхо, конечно

[Alex11223]

Сообщение от Serge_Bliznykov

На олимпиаде задания должны быть намного сложнее

Так там разные этапы есть обычно. Школьный, городской, региональный и т.п.

[Serge_Bliznykov]

Сообщение от Alex11223

Так там разные этапы есть обычно. Школьный, городской, региональный и т.п.

ну, судя по уровню задач, ещё ещё один предварительный - Дошкольный