Хотя бы одно решить составить программы на языке турбо паскаль для решения в1. даны "информация" и "логика". получить из этих слов словосочетание "информационные технологии" и определить его длину. в2. дан массив r[1]=12, r[2]=3, r[3]=-5, r[4]=-6, r[5]=4, r[6]=9, r[7]=0, r[8]=8. найти сумму элементов массива. в3. вводить целые числа с клавиатуры, пока не будет введен ноль. найти разность введенных чисел.
B3 в pascal ABC NET:
const N = 1000;
var a: array [1..N] of integer; i, k, p, l: integer;
begin l := 0; p := 0; i := 1; readln(k); while k <> 0 do begin a[i] := k; p := i; i := i + 1; readln(k); end; for i := 1 to p do l := l - a[i]; writeln(l);end.