Var a:array[1..8]of integer; b,c,d:integer; begin writeln('Введите элементы массива'); c:=0; d:=0; for b:=1 to 8 do begin readln(a[b]); if a[b]>0 then c:=c+1; if a[b]<0 then d:=d+1; end; writeln('Количество положительных элементов равняется ',c); writeln('Количество отрицательных элементов равняется ',d); end.
var a,t:string; b:array[1..100]of string; j,i,k,n:integer; begin writeln('vvedite predlojenie'); readln(a); a:=' '+a; for i:=1 to length(a) do if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i]; writeln('slova s odinakovymi 1 i posledney bukvoy'); for i:=1 to k do begin t:=b[i]; if t[1]=t[length(t)] then write(t,' '); end; writeln; writeln ('slova s 3 e'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='e' then inc(n); if n=3 then write (t,' '); end; writeln; writeln('slova s bukvoy o'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='o' then n:=1; if n=1 then write (t,' '); end; end.
#include <stdio.h> int main() { FILE* in = fopen("input.txt", "r"); char s[100], b = 1, i = 0; short c; do { c = getc(in); if (c >= '0' && c <= '9') { if ((b = !b) && /* */ (c = getc(in)) == ' ' || c == '\t' || c == '\r' || c == '\n' || c == EOF) { while (c != '\n' && c != EOF) c = getc(in); i = 0; } } else if (c == '\n') { for (b = 0; b < i; b++) putchar(s[b]); putchar(c); putchar('\n'); i = 0; b = 1; } else { s[i++] = c; b = 1; } } while (c != EOF); fclose(in);
b,c,d:integer;
begin
writeln('Введите элементы массива');
c:=0;
d:=0;
for b:=1 to 8 do
begin
readln(a[b]);
if a[b]>0 then c:=c+1;
if a[b]<0 then d:=d+1;
end;
writeln('Количество положительных элементов равняется ',c);
writeln('Количество отрицательных элементов равняется ',d);
end.