Решите пожалуйста задачку: написать программу для подсчета числа элементов равных максимальному в численном массиве из 30 элементов.

a[1]:=max; for i:=2 to 30 do if a>max then max:=a; nmax:=0; for i:=1 to 30 do if a=max then nmax:=nmax+1; writeln("их ",nmax);

Spanden, обращение к элементу массива забыл

Spanden, вообще не правильно! вот:
max:=a[1]; for i:=2 to 30 do if a[ i ]>max then max:=a[ i ]; nmax:=0; for i:=1 to 30 do if a[ i ]=max then inc(nmax); writeln(nmax);

cHeRsAnYa1, сайт вырезает как тег.

А вот за один проход массива: max:=a[1]; nmax:=1; for i:= 2 to 30 do begin if a=max then nmax:=nmax+1; if a>max then begin max:=a; nmax:=1; end; end;

пожалуйста нужно решить задачку дана матрица целых чисел 4х5. Найти сумму элементов по периметру этой матрицы.

aWeLoL, s:=0; for w:=1 to 4 do for z:=1 to 5 do begin if((w=1) or (w=4) or (z=1) or (z=5)) then s:=s+a[w][z]; end;

треугольник задан длинами своих сторон a,b,c.Написать программу,которая если треугольник является равнобедренным,вычисляет его площадь,в противном случае вычисляет его периметр

Помогите! натуральное число n(1<равное n<равное9999) подщитайте количествн делителей числа n . если не трудно. скиньте на e-mail. в анкете

pirat969, количество:=1; для счетчик:=2 до квадратного корня с числа делать: если остача от деления числа на счетчик равна 0 то инкрементировать значение количества.

Juliettaaa, p:=(a+b+c)/2; if a=b or a=c then S:=sqrt(p(p-a)(p-b)*(p-c)) else perimetr:=a+b+c;