ЗАДАЧИ.

[r3lax]

1) Найти минимальный елемент массива целых чисел из 10 елементов.
2) Организуйте ввод слова и вывод в файл каждой буквы этого слова в отдельной строке
3) Составьте фрагмент программы, которая выводит предпоследнюю цифру введенного целого числа
4) В числе 33*3* дописать две цифры так, чтобы получить число которое делиться на 55
5) Составьте программу для вычисления выражения: f= max(A)/min(C)-max(B), где A,B,C - массивы целых чисел [1..7]

ОЧЕНЬ ПРОШУ ПОМОЧЬ. СРОЧНО НУЖНО НА ЗАВТРА. Буду очень благодарен всем кто поможет. Заранее спасибо!

[Poma][a]

Задачи очень легкие, но т.к. Вы, наверное, не сможете самостоятельно написать хотя бы ввод\вывод, то тут лень берет верх.. Буду рад узнать что я ошибаюсь..

[Stilet]

Примерно так:

1) Найти минимальный елемент массива целых чисел из 10 елементов.

var a:array[1..10] of integer; i,min:integer;
begin min:=1;for i:=1 to 10 do begin a[i]:=i;if a[min]>a[i] then min:=i;end;write(a[min]);

2) Организуйте ввод слова и вывод в файл каждой буквы этого слова в отдельной строке

var f:text;s:string;
begin
 readln(s);assign(f,'file');rewrite(f);for i:=1 to Length(s) do writeln(f,s); close(f);end;
end;

Составьте фрагмент программы, которая выводит предпоследнюю цифру введенного целого числа

...
str(i,s);write(s[length(s)-1]);
...

Составьте программу для вычисления выражения: f= max(A)/min(C)-max(B), где A,B,C - массивы целых чисел [1..7]

var a,b,c:array[1..7] of integer; i,q,w,e:integer;
begin 
 q:=1;w:=1;e:=1;
 for i:=1 to 10 do begin 
  a[i]:=i;if a[q]>a[i] then q:=i;
  b[i]:=i;if b[w]>a[i] then w:=i;
  c[i]:=i;if c[e]>a[i] then e:=i;
 end;write(a[q]/b[w]-c[e]);

[Poma][a]

array[1..7]

for i:=1 to 10

Заругается..

[Stilet]

Заругается..

Знаю......